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La réalisation matérielle de cet ouvrage a été faite à T'IRCAM, 

par l'auteur, au moyen : 

- d'un ordinateur DEC PDP10 modèle KI | 

- d'une imprimante électrostatique VERSATEC connectée à un 
ordinateur DEC PDP11/40, lui-même connecté au PDP10. 


La composition de ce texte a mis en oeuvre de nombreux programmes 
parmi lesquels on peut citer : 


- l'admirable éditeur vidéo E de Arthur Samuel [SAMUEL 77], ` ` 


maintenu à 1'IRCAM par Raymond Bara et Jean-Louis Richer. 

z le systéme de composition automatique de textes RF, version 
considérablement améliorée par Jean-Louis Richer du systeme 
RUNOFF de DEC [DEC 75b] | | 


- le programme TRIFON de Patrick Greussay qui réalise 
l'impression sur VERSATEC à partir du PDP11. | 


- FNSTAR de Raymond Вага qui permet Ja fabrication des 
différentes polices de caractères. 


- le paragrapheur et éditeur de références croisées de MISP-10, 
de l'auteur, qui a réalisé Та composition automatique des 


textes écrits en WI des appendices B, D, et Get des textes 
écrits en langage machine VCMC2 des appendices C, E et F 


Les polices de caractères utilisées ont été construites à partir 
de celles décrites dans [EARNEST 76], — [XGPFONT 74] et 
[ARCHIBALD 77]. 


Dans ce texte 3 polices de caractéres ont été utilisées : 
- la police IRCVZS.F11 réalisée par l'auteur 
- la police GACI25.F11 réalisée par P. Greussay 


- la police MIRUES.F11 réalisée également par l'auteur. 


Que tous en soient remerciés. 
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Notre étude présente la réalisation de trois systémes УП Р] (dialecte 
du langage LISP) . développés à l'université de Paris 8 - Vincennes. 
Ces systèmes ont été réalisés : 

- sur micro-processeur à mots de 8 bits (Intel8080/Zilog80) 

- sur mini-ordinateur à mots de 16 bits (PDP11) 


- sur gros ordinateur à mots de 36 bits (PDP10) 
De ces réalisations est extrait un modèle d' implémentation. 


Cette étude propose des solutions aux problèmes de construction et 
d'évaluation de tels systèmes. (Ces problèmes sont : 


1) La description exhaustive des implémentations. 
Nous proposons une description fondée sur 1а machine référentielle 
VCMC2. 


2) La représentation adéquate des objets et des fonctions MISS, 
Nous avons associé des propriétés naturelles aux objets dès leur 
création et nous avons établi une typologie fonctionnelle de ces 
objets. | | | 


3) L'efficacité de l'interprète (еп place, en temps d'exécution еї еп 
compréhension). Notre interprète effectue, pour ses besoins 
propres, une allocation optimale de la mémoire (allocation mesurée 
en terme d'appels du module CONS). L'accès direct (ne nécessitant 
qu'un accès mémoire) aux valeurs des objets de type veriable et 
fonction, et la classification des fonctions par types permettent 
un Tancement immédiat de toutes les fonctions. La transparence. de 
nos méthodes de қамы ыы est une conséquence naturelle des deux 
choix précédents. 


4) Le pouvoir des structures de contrôle. 
Notre modé Le d’ implémentation généralise Les structures da contróle 
de SELF et ESCAPE en intégrant Les nouvelles constructions 
EXIT, WHERE et LETF et en unifiant totalement leur descrintion et 
leur implémentation. 


http;//www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 5 / 362 


Page 4 RESUME 
— __—_—____ A E E E A R A L лс наниклнинсданны 


5) La souplesse d'utilisation du système. 
Nous introduisons Le nouveau concept de CHRONOLOGIE qui permet de 
créer dynamiquement de nouveaux évaluateurs, permettant les traces 
méta-circulaires. 


Une incarnation de notre modèle est donnée sous la forme de La 
réalisation d’un système MUSS pour La machine référentielle VCMC2. 
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CHAPITRE 1 


I NTRODUCT I ON 


1.1 HISTORIQUE CRITIQUE DE L' IMPLEMENTATION DE LISP. 


Le langage LISP [BERKELEY 74, MEISSMAN 67, ALLEN 78] est aujourd'hui 
le langage le plus utilisé dans les domaines de l'Intelligence 
Artificielle [WINSTON 77] et de la théorie de la programmat ion 
ІМІУАТ 791. La particularité majeure de LISP est d'avoir pu évoluer 
de façon naturelle depuis sa naissance en 1960 [McCARTHY 60a, 60b], à 
mesure qu'apparaissaient de nouveaux besoins. L'échec patent des 
rares tentatives de standardisations {Note 1} a d'une part permis sa 
survie et d'autre part conduit à une amélioration constante du langage 
tant en efficacité à l'interprétation qu'en pouvoir de ses concepts. 


Il en résulte aujourd'hui une floraison d'implémentations, bien loin 
du premier LISP 1 [McCARTHY 60al, ayant chacune des spécifications 
particulières en fonction de leur utilisation et du moment de leur 
création. 


On distingue ainsi 4 grandes familles d'implémentations : 


1) La Lignée LISP 1.5 IMcCARTHY 621. Descendante directe de LISP 1. 
qui était un système interactif (avec le "FLEXOLIRITER system"), 
elle a donné Le LISP 1.6 [QUAM 72] très proche de LISP 1.5, mais 
ayant abandonné la Liaison par A-liste, décision dont les 
conséquences ont été monumentales. Par la suite, l'importance 
capitale de l'intégration des instruments de mise au point devint 
de plus en plus évidente, et LISP 1.6 fut augmenté d'un éditeur et 
d'aides à le mise au point pour donner le U.C. I. LISP [BOBROLH 73a]. 


(Note 1) ces standards sont aussi prématurés  qu'arbitraires. 
Prématurés car ils tombent en désuétude aussitôt créés (voir 1e 
standard de [HEARN 69] puis [MARTI 79]) et ne tiennent pas compte de 
l'évolution du langage, arbitraires car ils sont essentiellement 
définis H CHECK chu programme particulier (REDUCE 2 dans le cas 
de HEARN [HE , (41). 
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2) Les systèmes INTERLISP (anciennement BBN LISP) ITEITELMAN 75] 
orientés sur une utilisation exclusivement interactive, et qui ont 
donnés naissance à des sous-systémes tels que CLISP  [TEITELMAN 731 
ou DLISP (TEITELMAN 77] qui font une utilisation intensive de 
périphériques interactifs tels. les écrans à haute résolution. 


3) MACLISP [MOON 74, LAUBSCH 761 au M.I.T. dont le développement 
s'est réalisé еп  symbiose avec celui du système MACSYMA 
[MACSYMA 75] et qui a inspiré la conception de la machine LISP du 
M.I.T. ІМЕІМБЕВ 791. | 


4) Enfin les systèmes [GREUSSAY 76a, CHAILLOUX 78а] développés en 
France à l’Université de Paris 8 - Vincennes, implantés sur les 3 
catégories de systèmes matériels (gros, mini et micro) et qui sont 
dotés des structures de contrôle Les plus puissantes. 


Le point commun de ces familles d' implémentations est d'avoir toutes 
une réalisation sur l'ordinateur de référence PDP-10 [DEC 78al, qui 
est la machine la plus utilisée dans le cadre des recherches еп 
Intelligence Artificielle. Pour cette raison les performances de ces 
différentes réalisations sont aisément mesurables. 


En plus du PDP-10, ces systèmes LISP n'ont été implantés que sur un 
nombre restreint d'autres matériels en général de taille trés 
importante tels L’IBM série 360/370  (BOLCE 68, HAFNER 741, U UNIVAC 
1100 ou L’IRIS-80 pour lequel on dénombre З réalisations en France, Le 
TLISP à L'Université Paul Sabatier de TOULOUSE IDURIEUX 781, te RLISP ` 
eu laboratoire IMAG de GRENOBLE [LUX 78] et SIRLISP à U'E.N.S.T де ` 
Paris [COILLAND 791. : | 


LISP 1.5 et LISP 1.6, hormis des réalisations-jouets à fins 
pédagogiques, sont à présent tombés en désuétude. ` 


MACLISP et INTERLISP, trop dépendant de Le machine PDP10 (et même du 
système d'exploitation. utilisé respectivement ITS et TENEX) n'ont pu 
étre transportés dans leur intégralité sur d'autres machines {Note 1). 


Seul, М9, (du fait probablement de sa conception en Europe et de la 
diversité des ordinateurs qui y sont disponibles) a pu (ou a dû) être 
réalisé sur un grand nombre de machines très variées telles que CAES10 
[GREUSSAY 721, САВ500 ІМЕВТ2 741, 71600 (GREUSSAY 751,  PDP10 
[CHAILLOUX 78с1, SOLAR16 (GREUSSAY 78b1, 8080 et 280  (CHAILLOUX 79a] 
et PDP11 I[GREUSSAY 79bl. . 


memes — 4 — RR nt 


{Note 1} En date de Septembre 1978, MACLISP ne tournait encore qu'avec 


beaucoup de difficultés, en ce qui concernait ses aspects-système 
ávolués, au laboratoire d'Intelligence Artificielle de Stanford, sous 
système WAITS [GREUSSAY 78a]. | | "PEE 
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La diversité de toutes ces réalisations a entrainé La naissance 
d’histoires (et d’historiens) de LISP, apportant de précieuses 
informations sur l'évolution naturelle des langages de programmation 
{Note 1} ІМсСАВТНҮ 781 , [WHITE 781, [STOYAN 78a,78b1. 


Les recherches actuelles de construction des systèmes LISP s'élaborent 
pour l'essentiel selon les 4 axes suivants : 


- implémentation sur des ordinateurs universels classiques tel. le 
VAX-11 [DEC 78е] ou te 5-1 IHAILPERN 791. 


- implémentation sur des ordinateurs spécialisés, voire des 
micro-ordinateurs, à ressources Limitées [CHAILLOUX 78a, TAFT 78]. 


- réalisation de machines spécialisées  [GREENBLATT 74, KNIGHT 74, 
SHIMADA 76, LISPMACHINE 77, LECOUFFE 77, TAKI 79, HEINREB 79]. 


- apparition d'unités centrales, en technologie V.L.S.1. [MEAD 801, 
capables d'interpréter directement LISP à une translation près du 
Langage source en sa représentation arborescente, dont le répertoire 
des sommets constitue un jeu d'instructions d'interprétation directe 
de LISP (les CHIP-LISP) [STEELE 79, HOLLOWAY 80]. 


{Note 1} Par opposition aux cas de langages à génération spontanée ou i 
à comités [HORNING 79], à définition discrétionnaire. . ^ ^^ ° з 
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1.2 COMMENT DECRIRE LES IMPLEMENTATIONS : la machine UCHC2. 


COMMENT DECRIRE LES _IMPLEMENTATIQNS : (а Wee елла. 


Dès son apparition LISP a été exposé méta-circulairement {Note 1} afin 
de décrire ses propres implémentations. 

Cette utilisation de LISP, très commode, ne satisfaisait pas Les 
implémenteurs experts, qui n'avaient à Leur disposition que ces 
descriptions méta-circulaires accompagnées, dans Le meilleur des cas, 
du texte d’une implémentation particulière. Tous Les problèmes réels 
9° implémentation en machine étaient soit totalement ignorés (dans le 


cas où LISP était utilisé à sa propre description) soit entièrement 
orientés vers une machine particulière. | 


Pour illustrer cette situation, nous utiliserons dans cette section, 
une succession progressive de descriptions du module classique EVLIS : 
nous partirons de sa description méta-circulaire en LISP, nous La 
qualifierons sur des machines particulières, enfin nous en donnerons 
La description dans notre modèle de référence. 


Voici la description de la fonction EVLIS, en LISP classique, telle 
quelle est donnée dans les manuels de référence : 


LISP classique 
(DE EULIS (L) 
( D 


CON 
C (NULL L) NIL) 
(T (CONS (EVAL (CAR 12) (EULIS CCOR L)))))) 


Une telle description purement méta-circulaire était déjà remise en 
question par John McCARTHY, Le créateur du langage : il introduisit 
deux langages LISP, un langage algorithmique (le Méta-langage) qui 
utilisait des M-expressions et un langage de programmation (le LISP 
tel qu'on le parle encore) qui mettait en jeu Les S-expressions 
[McCARTHY 621. Ce double langage permettait de distinguer Les données 


décrites en S-expression des programmes décrits sous forme de 


M-expressions [PERROT 791. 


L EP OOO uum 


(Note 1) LISP est spécifiable par ип interprète dit méta-circulaire : 
un te] interprète, écrit en ISF, ramasse en Une seule description 1a 
spécification du langage et celle de l'interprète lui-même (voir 1a 
description de l'évaluateur  NLIP-10 еп VCIS-10 donné dans 
[CHAILLOUX 78c] page 20). C | 
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La traduction du langage algorithmique vers le langage de 
programmation LISP devait s'effectuer automatiquement {Note 1]. or 
sait aujourd’hui que seul Le langage de programmation a survécu. 


Voici donc la description de La fonction EVLIS en utilisant la 
notation sous forme de M-expressions : 


M-expressions 


evlis[l)=[null[l1]əNIL;T>cons[eval[car[lJl;evlis[cdr[111)J) | 


E A КЕН кенен нн 
{Note 1) c'est l'absence des caractères spéciaux [, j, et + sur la 


perforatrice de cartes IBMG26 qui a empéché l'utilisation systématique 
des M-expressions. 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 15 / 362 


Page 14 INTRODUCTION 


gege 


Si on considère qu’une implémentation particulière constitue une 
description de référence on se heurte aux deux difficultés que sont 


1) l’opacité inhérente à la méconnaissance préliminaire de 
l’ordinateur source 


2) la non-généralité chronique de ce type de description. 


Voici donc cette méme fonction telle qu'elle est codée dans le iangage 
machine du PDP10 [CHAILLOUX 78c] : 


Langage machine PDP-10 
D1 EULIS: 
DS JUMPE 


A1, UPOPJ ; pas а BR AT 


03 HARZ  A2,MEM(A1) ; A2 + 
04 PUSH  P,A8 ; gui est sauvé 
PUSHJ  P,EURLCA : évalue la 1ère val. 
06 HLR2 ` A1, MEMCAN) ; А1 < (CONS A1) 
Ü ESCH  ñi,MEM(FREE) 
08. ESCH  FRÉE,A1 
09 POP P.A2 ; récupère (в reste 
10 CAMGE Rñ2,BLIST eu moins 
41 Jeer  VPÒPJ ; non : fin 
18 PUSH P,R1 ; sauve [а der doublet 
13 PUSH P,R1 ; sauve le dernier 
14 PUSH P,R2 : sauve le reste 
15 MOUE! AÌ, (A2) s A1 < les arguments 
18 EULIS1: 
1? HRAZ A2,MEMCAT) A2 + (COR A1) 
18 dans le sommet de la pils 


MOVEM A2, (Р) 
19 PUSHJ  P,ÉU 
20 HRZ  A1,MEM(AT) 
21 EXCH F1 MEMCFREE) 


évalue l'ar „uens suivant 
81 < (CONS H1) 


22 EXCH FREE, R1 
MOUE  A2,-4(P) ; A2 + le dernier doublet 
24 M A1,MEMCRE) ; CRPLACD Re А1) 
e5 MOVEM А1,-1СР) ; sauve Le CORRE doubtet 
28 VE A1, (P) : А1 < lare 
27 CA A1, BL IST : il reste Deb éléments ? 
28 JAST EUL 181 ; Oui. 
eg SUB Р,ІЗ,,31 : non : nettoie la pite. 
MOUE — 84,100) ; A1 < 1er doublet 
31 UPOPJ: 
РОР.) P, : et voilà. 
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Le point 1? est illustré ici par l'instruction MOVEI, utilisée à la 
Ligne 15, qui emploie classiquement la propriété  d'adressage 
suivante : 


immédiat + indexé - direct 


et permet un gain substanciel de temps : 


Temps d'exécution des instruct ions 


MOVE A1,A2 1.14 micro-sec 
MOVE! A1, (A2) . 0.62 micro-sec ` 


sur l'unité centrale PDP 10 KI [DEC 78al. 


On notera également la confusion conceptuelle introduite per 
l'utilisation du pointeur de pile P comme registre d'index, pointeur 


qui ira méme (voir la Ligne S0) jusqu'à étre employé à l'extérieur de 
la zone pile. | 


La non-généralisation de cette description est malheureusement une ` 
conséquence de l'utilisation raisonnablement experte d'une machine 
particulière. 


Nous devons aller au delà de ces 3 représentations pour aborder, 
décrire correctement, résoudre enfin les véritables problèmes 
а” implémentation en machine : 


- la représentation en LISP classique montre assez bien l'intention de 
La fonction mais ignore complétement les problèmes d'allocation des 
ressources, souvent limitées, ainsi que la gestion de la récursion. 


- la représentation | en M-expressions tout en évoquant 
approximativement une notation algébrique présente les mêmes 
inconvénients que la représentation en LISP et introduit un niveau 
supplémentaire de traduction. 


-~ la représentation en langage machine PDP10 fait surgir de nouveaux 


problèmes Locaux tels que l’accès aux demi-mots de la machine voire 
l’utilisation du pointeur de Pile comme registre d'index. La 
description en langage machine est alors supplantée par l'expérience 
nécessaire à la mise en jeu correcte d'adressages et de jeux 
d'instructions particuliers. 
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Nous proposons donc de représenter  l'implémentation au moyen de 
programmes d’une machine de référence, La machine VCMC2, descendante 
directe de La machine VCMC1  [CHAILLOUX 78b], et indépendante des 
représentations internes des objets eux-mêmes. C’est de cette 
description que naissent naturellement Les incarnations 
opérationnelles particulières de УШ Р sur les ordinateurs les plus 
diversifiés. Cette machine, décrite au Chapitre 3, est simulée en 
VLISP-10 sur ordinateur PDP-10. Le texte de ce simulateur est donné à 


L'appendice B. 


La description de MIS trè | concise, qui en découle dégage Les 
caractéristiques a es de l’implémentation de modules tels que 
EVLIS en machine, i.e. : 


1) Les actions de base (test par rapport à NIL, CDR, CONS ... ) 


2) la gestion de la récursion par utilisation d'une pile et d'un 
accumulateur. 


3) Le mécanisme du sauvetage et de La restauration du reste de La 
liste et du résultat intermédiaire au travers de la pile. 


4) l'internalisation totale des fonctions interfaces : 
entrées/sorties et traces (ce que ne pouvait pas faire la notation 
FILTRE de I[GREUSSAY 76b1). 


Voici donc la description, en VCMC2, де l'implémentation en machine de 
La fonction EVLIS : 


a fonction EULIS décrite en ЧСМСг 


La fonction EULIS décrite en VOILE 


EULIS: ТМ АТ БАТ 


COR ST, [CALL CEUCRR) 1 
XTOPST A1, [CALL CEULIS)1 
TSt, А1, ERETURN) 
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Cette représentation générale atteint Le degré de précision suffisant 
pour : 


1) appréhender La véritable structure en actions de base de 
L’ implémentation (ce que ne pouvait pas faire la description 
d'INTERLISP {Note 1) 


2) expliciter totalement la gestion de la pile de récursion en 
unifiant dans l’adressage la mise en jeu des accumulateurs et du 
cache de pile. 


3) indiquer La circulation dans la pile des états d'évaluation 
intermédiaires du contenu initial du registre A1 


4) préciser enfin la structure de contróle par attachement à chaque 
instruction d'une continuation complexe. 


(Note 1] Та notation utilisée dans la description de [CORE 76] 
ressemble а la notation sous forme de M-expressions et ne rend pas 
compte de la gestion de la récursion et des résultats intermédiaires. 
Sachant que EVLIS est la version SUBR du module LIST (de type FSUBR) 
[MOORE 76 pp. 11] ne peut décrire cette dernière qu'elliptiquement par 
le dispositif typographique des points de suspension : 


LIST[x1;x2;...xk] 
Return CONS[x1;CONS[x2; .. .CONS[xk;NIL]. . .]] 
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1.3 EFFICRCITE ET PUISSANCE DE L'INTERPRETATION. 


Du fait de sa représentation des objets et des fonctions, notre modèle 
permet de réduire considérablement Le temps d'interprétation et de 
disposer d’un grand nombre de structures nouvelles, qui facilitent 
l'écriture des programmes, en améliorent la lisibilité et en diminuent 
sensiblement la taille. 


Voici la définition de la fonction de FIBONACCI utilisée pour des, 
comparaisons de vitesse sur plusieurs interprètes LISP fonctionnant 
sur PDP10 : Е j 


(DE FIB (n) 
(COND 
CCZEROP n) 1) 


(«ЕС n 1) 1) 
(T (PLUS (FIB (SUB1 n)) (FIB (DIFFER n 2)))))) 


(FIB 20) с” 10948 


Voici les temps relevés sur MACLISP, INTERLISP, ҰЦӘР-10 et NLISP-11 
(Note 1) pour le calcul de l'appel (FIB 20) : 


[Temps en secondes] 


MRCLISP — INTERLISP — VLIIP-10 Ү.52-11 
48.88 . 105.78 13.34 35.2 


{Note 1} MACLISP utilise dans 1е cadre de се test une unité centrale 
PDP10 KA-10 et des mémoires à 1.8 micro-secondes [WHITE 76], INTERLISP 
une unité centrale PDP10 KA-10 et des mémoires à 1.0 micro-secondes, 
MIF-10 une unité centrale PDP10 KI-10 et des mémoires à 1.0 
micro-secondes. VMIS-11 n'a à sa disposition qu'une micro-unité 
centrale LSI 11/02. EE 
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La rapidité remarquabte de l'interprétation de notre modèle est dûe : 


1) à l’utilisation intensive des propriétés naturelles des atomes et 
principalement du type associé à chaque fonction. Le type d’une 
fonction LISP est déterminé par Le langage dans lequel elle est 
écrite, le mode de passage de ses arguments (les arguments sont ou 
ne sont pas évalués) ainsi que le nombre de ses arguments. Cette 
typologie est abondamment décrite au chapitre 4. Ce type est 
directement accessible, ce qui permet de réaliser en méme temps et 
le test. du type et l'appel de la routine associée, au moyen d'un 
seul branchement indirect  indexé. En terme de syntaxe, АЕ 
utilise donc l'appel par nom des fonctions. 


2) au fait que l'interprète ne réalise plus aucun CONS pour ses 
besoins propres. L'utilisation exclusive d'une pile commune de 
données et de contróle évite de créer des structures intermédiaires 
(sous forme de cellules de Liste) durant le processus d'évaluation. 
Le nombre de récupérations de la mémoire dynamique se trouve ainsi 


réduit aux seuls besoins de l'utilisateur (Note 1]. 


3) à l'interprétation itérative des fonctions récursives de type NPR 
et CPR [GREUSSAY 78c1. 


4) à l’utilisation des structures de contrôle de MISA qui permettent 
une écriture plus concise et une interprétation plus rapide. En 


particulier : 


- l'opérateur point-fixe du A-calcul [ROBINET 781, représenté par 
Le fonction SELF de [GREUSSAY 77] 


FIBONACCI se reécrit alors commodément : 


(PLUS (SELF (SUB1 n)) 
(SELF (DIFFER n 2)))))) 


- les fonctions d'échappement ESCRPE. Introduites per 
[GREUSSAY 76b], elles permettent d'associer dynamiquement des 
fonctions d'échappement à des atomes, réalisant ainsi des sorties 
non- locales. 


—Fs Ia... 


(Note 1} La gestion de la mémoire en LISP est automatique et dynamique 
ce qui assure une utilisation optimum de 1a place mémoire mais oblige 
à construire des modules d'accès et d'allocation (1e module CONS) 
Spécialisés ainsi qu'un récupérateur de mémoire, dispositif qui 
ralentit l'interprète. Ces problèmes de représentation des objets 
sont abordés au chapitre 2. 
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S) enfin à de nouvelles structures de contrôle. Ces nouvelles 


structures de contrôle vont pouvoir réaliser : 


- la description de fonctions anonymes (i.e. qui ne sont pas 


associées à des noms) en utilisant la forme INTERNAL. 
- Les sorties locales à une fonction en utilisant la fonction EXIT. 


- ta redéfinition dynamique de fonctions de n'importe quel type en 
utilisant la primitive WHERE. 


- la définition d'une nouvelle classe de fonctions, Les variables 
fonctions, apportant une soiution nouvelle au problème des 
variables internes. 


1.3.1 Description de fonctions anonymes 


Notre modèle permet de décrire des fonctions anonymes (non associées à 
des symboles atomiques) de n'importe quel type au moyen d'une des deux 
formes INTERNRL suivantes : | 


CINTERNAL type adresse-mémoire) 
CINTERNRL type fonction) 


Le premiére forme permet de décrire des fonctions écrites en langage 
machine, et la seconde des fonctions écrites en М.Р. | 


Ces deux nouvelles formes généralisent l’ancienne utilisation de Le 
forme LAMBDA (qui a été gardée per souci de compatibilité et de 
simplification de l'écriture des EXPR anonymes) pour tous les types de 
fonctions et permettent ainsi de limiter l’utilisation des noms 
essociés aux fonctions. 


Cette Limitation des noms réduit d'autant plus l'espace mémoire 
nécessaire eu stockage des symboles atomiques et accroit la Lisibitite 
du progremme qui ne contient plus que Les noms indispensables. 
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1.3.2 Sorties locales 


La forme EXIT permet de sortir de la dernière fonction ‘invoquée de 
type EXPR, FEXPR ou MACRO. La valeur retournée est évaluée dans 
l’environnement précédant exactement Le retour de cette fonction donc 
évaluée en position terminale. Cette propriété est utilisée pour 
forcer un traitement de récursion terminale {Note 1} ce qui n’était 
pas le cas des fonctions RETURN des anciennes formes PROG (Note 2}. 


Voici La méta-description de la fonction MEMBER qui utilise La 
Structure de contrôle itérative WHILE, 


(DE LEM (a 1) 


(WHILE L 
CIF CEQUSL (CARR 1) a) 
(ERIT 1) 


(NEXTL. 022) 


L'appel de la fonction EXIT permet une sortie extraordinaire du WHILE. 


H 


m 


{Note 1} Ces appels récursifs terminaux sont interprétés d'une manière 
itérative beaucoup plus efficiente. 


(Note 2} La forme PROG a été abandonnée dans notre modèle (ainsi que 
ses fonctions associées GO, GOTO et RETURN) car les nouvelles 
fonctions de sorties loca?es et non-locales sont à la fois plus 
rapides (en effet le БаТауаде préliminaire de tous Tes corps de PROG 
pour consfruire 1a table des étiquettes a disparu) et plus générales 
(avec la possibilité de retourner directement d'un nombre quelconque 
d'appels). 
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1.3.3 Définitions dynamiques de fonctions 


La forme WHERE permet de définir dynamiquement de nouvelles fonctions 
et de rendre fluides (Note 1) les fonctions elles-méme. 


Voici la syntaxe de cette nouvelle forme : 


(WHERE («nom» «fval») <s1> ... <sN>) 


Le premier argument du WHERE est une définition temporaire d’une 
fonction <fval> associée au nom «nom». Le reste des arguments du 
WHERE i.e. <81> ... <sN> est un corps dans lequel la définition 
précédente est active. Au sortir du WHERE, la définition associée au 
nom «nom» disparait et sa définition antérieure (s’il en possédait 
une) est restaurée. 


Voici la fonction de traçage d'une courbe Dragon [GARDNER 67, 
SCHOETTL 751 en LOGO-LISP [MERTZ 791 dans laquelle la fonction tourne 
est redéfinie dynamiquement. 

Les fonctions «avance», «droite» ei «gauche» sont des primitives 
LOGO : 


(DE tourne O (<droite> 803) 
(DE dragon (n 0) 
CIF CZEROP n) 

(«avance» 1) 


CHERE (tourne ' СС) КЕШЕН» 8032) 
(dragon (6081 n) 1D 

(tourne) 

(WHERE (tourne '(() C(«droite» 9000) 
(dragon С50В1 п) 02») 


: : 


(Note 1) Une variable fluide est une variable libre liée 
dynamiquement. 
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1.3.4 Les variables fonctions 


Notre modèle propose une solution au probléme de l'accès aux var tables 
internes (Note 1} de l'interprète. En effet, un choix crucial 
d' implémentation se pose. 

Il n'est que trop tentant d'utiliser des variables pour accèder à 
ces variables internes. Appelons OBASE la variable interne qui 
contient à tout moment la base de numération des nombres en sortie. 

Une affectation incorrecte de cette variable (par exemple avec une 
valeur négative), détruirait toute possibilité future d'impression de 
nombres. 

.Une deuxième stratégie consiste à utiliser une fonction associée à 
chaque variable interne. Cette fonction va contrôler la validité des 
valeurs affectées à la variable. C’est ce qu'on entend par 
variabilisation ou fonctionnalisation de l'accès. 

C'est cette dernière stratégie qui a été adoptée dans notre modèle. 
De plus celui-ci propose une nouvelle classe de fonctions, Les 
variables fonctions, qui permettent dans une stratégie de 
fonctionnalisation des variables internes de Lier dynamiquement Les 
valeurs de ces variables internes, retrouvant ainsi toutes les 
propriétés des veriables. 

En lecture ces variables fonctions n'ont pas d'argument et en écriture 
elles possèdent un argument (évalué) qui est la nouvelle valeur de la 
variable fonction. 


(var iable-fonct ion) lecture 


(variable-fonction valeur) écriture 


La nouvelle structure LETF réalise la liaison dynamique des variables 
fonctions. Elle possède une syntaxe identique à la macro LET : 


(LETF (varisble-fonction valeur) corps-du-LETF) 


rte EEN 


{Note 1} rappelons que ces variables internes sont Tes mots mémoires 
de travail de l'interprète et qu'il est souhaitable que l'utilisateur 
ait accès à certaines de ces variables pour faciliter l'utilisation du 
système et en augmenter la puissance. 
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Cette forma est exécutée en 4 temps : 


1) appel de ‘а variable fonction en lecture (sans argument). (а 
valeur retournée est conservée. 


2) appel er écriture de la variable fonction avec l’argument transmis 
au LETF. 


3) exécution e^ séquence du corps du LETF qui calcule (а valeur 
retournée par le forme LETF. m 


4) re-appel en écriture de la variable fonction avec en argument son 
ancienne valeur conservée en 1). 


Ce type de ііаіѕол (de même que celle des variables) est réalisée 
automatiquersrt et en particulier le point Ai est effectuée en cas de 
sortie extracrcineire par un EXIT ou un ESCRPE enveloppant. 


L'utilisaticn d 
variables des f 
tent en lectures 


e ces variables fonctions permet donc d'associer à des 
enctions qui réalisent des contrôles d'accés dynamiques 
qu'en écriture. 


Voici un exemple d'utilisation de la variable fonction OBASE qui 
contrôle la bese de conversion des nombres en sortie. La fonction 
PRINT-base-x imprime son 2ème argument n dans la base de numération x 
fournie en ler argument : 


(OBRSE) 17 10 


(DE PRINT-bass-x (x m 
(ЕТЕ (OBRSE x) 


(PRINT n))) 
(PRINT-base-x 18 1000) к? ZER 
(OBRSE) 7 10 
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1.4 LR SOUPLESSE D'UTILISATION. 


Un certain type de programmation-système consiste à implanter, valider 
(ou invalider), mesurer, modéliser de nouveaux types d’architectures 
logicielles ou matérielles (par simulateur), à La Limite бо 
l'élaboration de modèles en Intelligence Artificielle. 

Cette programmation se fera tout naturellement dans les conditions Les 
plus interactives et les plus expérimentales possibles, et nécessitera 
des outils permettant la réalisation la plus rapide du modèle à 
valider. Cette activité demande donc un langage puissant, très 
facilement et très rapidement mis en ceuvre, car les temps de vie des 
différents modèles sont extrénement brefs et soumis à des 
modifications incessantes. 


Ainsi notre systéme ne mésestime pas l'expertise de ses utilisateurs. 
Il s'agit d'un système utilisable et utilisé, illustrant La nécessité, 
parfois sous-estimée, de ne pas entraver  i'expertise raisonnable de 
ses utilisateurs (par exemple еп ne !’enconbrent pas de contrôles 
statiques contraignant à une programmation médiocre) mais, tout au 
contraire, de leur fournir le maximum de pouvoir et de souplesse 
expressive. 


L'utilisation réelle d'une tel systère nécessite la faculté de 
contrôler par niveau le fonctionre-ent de l'interprète, ce qui amène 
tout naturellement à l’idée d’évaluateurs multiples selon (ев 
circonstances du calcul. Les outils de contrôle de chronologie, 
traces et erreurs qui vont être décrits en sont une illustration. 
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1.4.1 La notion de CHRONOLOGIE 


Notre modèle dispose d’une multitude d’évaluateurs potentiels 
différenciés par un numéro d'ordre de création, un numéro de 
chronologie. L'accès à cette chronologie est réalisée au moyen de Le 
variable fonction CHRONOLOGY. 


Ces évaluateurs peuvent être appelés : 
- par l'utilisateur au moyen de la fonction interprète EVAL dont te 


deuxième argument est Le numéro de CHRONOLOGIE que l'on veut voir 
affecté à cette évaluation : 


(EURL expression chronologie) 


- soit automatiquement par l'interprète, il s’agit alors 
d' interruptions. 
Ces interruptions sont déclenchées par des événements externes 
(horloges ou périphériques) ou par l'interprète lui-même dans les 
cas suivants : 
- appel de la boucle principale du système (TOPLEUEL) 
- erreur à l'interprétation (ERROR) 
- trace de l'évaluateur (STEPEURL) 

Ligne pleine en sortie (EOL) 

apparition d'une fin de fichier d'entrée (EOF) 


Le traitement d'une interruption se fait par invocation d'une fonction 
propre à chaque type d'interruption, dans un nouvel évaluateur dont La 
chronologie est la chronologie précédente incrémentée d’une unité, 
i.e. : ` 


(EVAL ‘(fonction associée à LUIT ....) (А001 CCHRONOLOGY))) 


Le valeur retournée par la fonction associée à l'interruption devient 
la valeur de l' interruption. 


Il existe de plus une fonction de sortie extra-chronologie, la 
fonction EXITCHRONOLOGY qui réalise la sortie de la chronologie 
courante et retourne une valeur au créateur de cette chronologie. 
Cette fonction possède la même syntaxe que la fonction de sortie 
Locale à une fonction, la fonction EXIT. 
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1.4.2 Les erreurs 


Notre modèle ne provoque pas l'abandon du travail en cas de détection 
d'erreurs. Lorsqu'il se produit des états d'indétermination dans un 
évatuateur, celui-ci va dynamiquement créer un nouvel évaluateur. Sa 
tâche est de tenter de lever l'indétermination ou tout eu moins de 


` 


retourner une valeur а l'évaluateur interrompu. 


Lorsque ces états d'indétermination sont détectés par un interprète 
(par exemple Lors d’une consultation d’une variable non définie), une 
fonction spéciale, la fonction ERROR, est automatiquement invoquée 
avec comme arguments les objets indeterminés, dans un évaluateur 
différent (dont La chronologie est égale à la chronologie antérieure 
incrémentée d’une unité). La valeur ramenée par cette invocation est 


utilisée pour lever l'indétermination de l'interprète interrompu. 


Cette fonction ERROR (comme toutes les fonctions d’interruptions) peut 
être redéfinie en МР) afin d'utiliser des sytèmes complexes de 
corrections automatiques tel que le système PHENARETE de [WERTZ 781, 
des outils sophistiqués d'aides-à-la mise au point tel que Le 
méta-évaluateur CAN de [GOOSSENS 77, 791, des analyseurs [HERTZ 771 
des traces ou des steppers [GREUSSAY 79а] 


Voici un exemple de la redéfinition de la fonction ERROR qui permet de 
construire une fonction testant si une forme peut étre évaluée sans 
erreur par EYAL. Dans le cas ou EVAL produirait une erreur cette 
fonction retourne la valeur NIL, et dens le cas contraire elle 
retourne la valeur de l'évaluation. Cette derniére valeur est incluse 
en premier élément d'une liste pour pouvoir distinguer la valeur NIL 
correspondant à une évaluation de cette même valeur indiquant une 


` 


erreur à l'évaluation. 


(DE EURL-teste-si-erreur (forms) 
(WHERE (ERROR '€O (erreur))) 


CESCRPE erreur 
[ CEVAL, forme)1022 


http;//www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 29 / 362 


Page 28 INTRODUCTION 


а ————————— 


1.4.3 Les traces 


Une des facilités majeures de notre modèle est d’avoir un mécanisme 
interne d'observation sélective de L'évaluateur lui-même en 
fonctionnement. Ce mécanisme permet d'appeler la fonction STEPEURL 
(qui peut être bien entendu redéfinie en MIS) avec comme argument La 


forme qui doit étre évaluée, à chaque appel interne de l'évaluateur. 


Ce mode trace est activé en donnant une valeur non-NIL au 3ème 
argument de la fonction interprète EVAL : 


(EURL expression chronologie trace) 


Voici comment réaliser une trace de tous les appels de EVAL. 


(DE TRRCEURL (exp) 
ERE 


(STEPEURL (forme) 
(PRINT '— forme) 
(SETG IT (ЕСА forme (SUB1 (CHRONOLOGY)) TO) 


(PRI 4 ІТ)) 
(EVAL ' (STEPEVAL exp) 9001 (CHRONOLOGY) 323) 


; Fonction de test : dernier élément de L ; 


(DE FOO (1) 
СЕ (NULL (CDR O) (CAR 1) (SELF (CDR (999? 


s Appel de la trace ; 
(TRACEURL 'CFOO *(A B))) 
(Е00 “(а B)) 
' (ñ B) 


(A B) 
CIF (NULL (CDR UD) (CAR 1) (SELF (СОН 199) 
(NULL (CDR D) . 

pum 9 


NIL 
(SELF (CDR 19) 
(CDR 1) 


L 
eñ B) 
(B) 


ttilitttiliitil 
e 
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INTRODUCT ! ON 


ағ «NULL (CDR 19) (CAR U (SELF (СОН 02) 
(NULL (CDR 19) 
ai LI 


(B) 
NIL 


T 
i 9 


q TITTTTLLTTTILLI 


Une des difficultés classiques de la réalisation du mécanisme de trace 
est posée par L’interférence entre la fonction tragante et la fonction 
tracée en particulier en cas d'utilisation des constructions SELF et 
EXIT : en effet dans la 11ème Ligne de trace l'appel (SELF (CDR D) 
doit utiliser La fonction tracée (i.e. La fonction F00) et non pas la 
dernière fonction appelée (i.e. la fonction STEPEURL elle-même). De 
même l'évaluation d’une forme EXIT peut se rapporter soit au programme 
tragant soit au programme tracé. Pour lever toute ambiguité à 
L'évaluation des formes SELF et EXIT, notre modèle utilise іа dernière 
fonction appelée dans la chronologie courante. La fonction traçante 
et la fonction tracée sont évaluées dans des chronologies différentes, 
ce mécanisme permettant également de réaliser des traces 
méta-circulaires (Note 1). 


Bien entendu des traces plus élaborées (comprenant des renfoncements 
correspondants aux niveaux d' imbrications des appels ou des 
numérotations de lignes par niveau et des possibilitées d' exécution 
incrémentales) peuvent être construites. Ces traces sont développées 
eu chapitre 7. 


Le fait de pouvoir récupérer TOUS Les appels internes de L’évaluateur 
permet, outre tes traces, une modification complète de celui-ci. 


aa l шы M 


{Note 1) KNUTH [KNUTH 69] propose page 211 l'exercice suivant : 

#6. [40] Design а trace routine which is capable of tracing itself, in 
the sense of exercice 4; i.e., it should print out the steps of its 
own program at slower speed, and that program will be tracing itself 
at still slower speed, ad infinitum until memory capacity is 
exceeded." 

Notre mécanisme de trace permet de ne tracer qu'un seul niveau de ia 
fonction de trace. 
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Voici en exemple ia fonction EURL-NIL-si-UNDEF qui se comporte comme 
La fonction interprète standard EVAL mais qui ne provoque pas d'erreur 
à L'évaluation d'une variable indéfinie, se contentant uniquement de 
donner la valeur NIL à La variable et d'imprimer un message 
d'avertissement : 


(DE EURL-NIL-si-UNDEF (expression) 
(WHERE 


(STEPEURL '(Cforme) 
CIF COR (LISTP forme) (NUMBP forme) CK(BOUNDP forme?) 
(EURL forme (С) Т) 
(PRINT "Je donne la valeur NIL à :" forme) 
-CSET forme NiIL)))) 
(STEPEURL expression))) 


Voici quelques utilisations de cette fonction en supposant 


que les variables VARFOO1, VARFOO2 et VARFOOS3 sont indéfinies 
(EURL-NIL-si-UNDEF 'URRFOO1) 


Sn Je donne la valeur NIL à : URRFODT1 


(EURL-NIL-si-UNDEF '['ñ URRFOO2 'B oen 
Je donne la valeur NIL à : URRFOD 
Je donne ia valeur NIL à : VARFO 005 

(A NIL B NIL) 


On notera dans cette fonction la redéfinition dynamique de la fonction 
STEPEURL, qui permet de n'effectuer le test de variable indéfinie que 
dans la portée dynamique de la fonction EURL-NIL-si-UNDEF. 
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1.5 LES SYSTEMES VLISP REALISES. 


—— a иі 


Une des caractéristiques Les plus importantes de notre modèle est 
d'être très rapidement et très facilement implémenté sur les matériels 
actuels. Trois réalisations récentes montrent la diversité des 
machines pouvant recevoir ce système : 


1) Le système WLISP-10 [CHAILLOUX 78cl, est réalisé sur L'ordinateur 
PDP KI 10 de Digital Equipment Corporation [DEC 7881, sous moniteur 
TOPS10 6.03 [DEC 78b], SAIL [HARVEY 74, FROST 75] et IRCAM 
[FROST 771. C’est le plus rapide et le plus puissant système VISÉ 
existant. IL est disponible dans les centres suivants : 
t I. R.C. A.M. et le C.I.T.I.2 en France, et EDIMBOURG, TURIN et 
STANFORD SAIL à l'étranger. | 


2) le système (VLISP-11 , (CGREUSSAY 79b], est réalisé sur l'ordinateur 
PDP 11 également de Digital Equipment Corporation [DEC 75al sous 
système ВТ11-У03 [DEC 78cl. Се système fonctionne actuellement sur 
Les processeurs РОР11 et sur les micro-processeurs LSI11 [DEC 78d) 
toujours sous système ВТ11-У03. 


3) le systeme  [VLISP-8 (CHAILLOUX 79а], est conçu pour Le 
micro-processeur Intel-8080 [INTEL 77а] et Zilog-80 [ZILOG 781. Il 
est disponible sous le systéme de développement ISIS-II [INTEL 77b] 
et TRS80 Level II [TRS 781. 


Chacun de ces systèmes représente une catégorie matérielle 
spécifique : gros système pour Le PDP-10, mini-ordinateur pour le 
PDP-11 et micro-ordinateur pour le 8080. Les différences entre ces 
matériels sont considérables. Nous évoquerons les points suivents : 


- ta taille des mémoires. Le PDP10 permet d'accéder à 256k ce 
36 bits, le РОР11 à 28k de 16 bits (Note 1) et le 8080 à 64k de 
8 bits. | | 


- La vitesse d'exécution des instructions. Le transfert dans un 
registre du contenu d'un mot mémoire demande (indépendemment cu 
nombre de bits transférés) 1.06 micro-sec dans un PDP10-KI, 3.2 
micro-sec dans un FDP11/40 et 4.5 micro-sec dans un 8080-2Mhz. 


En 


{Note 1} ce nombre inhabituel de k mémoire (28k) provient du fait que `> ` 


les entrée/sorties sont réalisées en memory mapped 1/0 sur 4k mots, 
qui ajoutés aux 28k mémoire conduit bien à un espace adresse de 32k 
mots . 
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- La puissance des instructions. Les jeux d'instructions de ces 
machines n'ont pas la méme puissance ce qui amène à utiliser un 
nombre d'intructions plus ou moins grand. Par exemple pour ta 
réalisation de l'allocation et de la construction d'un doublet de 
Liste (le module CONS), il suffit de 2 instructions du PDP10 (qui 
occupent chacune un mot mémoire de 36 bits) alors qu’il faut un 
sous-programme de 9 instructions pour Le PDP11 (chaque instruction 
nécessite de 1 à 3 mots de 16 bits) occupant un total de 12 mots 
pour l'appel et l'exécution du  sous-programme. Quant aux 
performances du 8080 etles sont encore plus mauvaises puisqu'il 
faut un sous-programme de 21 instructions, qui nécessitent chacune 
de 1 à 3 mots de 8 bits) occupent un total de 30 mots mémoire. 


Malgrés leurs différences, ila été possible d'implanter sur toutes 
ces machines un système MLISP, tel celui que nous décrire dans cette 
étude. Ces différents systèmes ne se différencient que par des. 
vitesses d'exécution et des espaces mémoire différents. 


Enfin, le champ d'application du système [VLISP| est extrémement vaste. 
Ses principales applications récentes recouvrent les domaines 
suivants : 


- l'amélioration et la correction de programmes avec le système 
PHENARETE [WERTZ 791. 


- la méta-interprétation de programmes récursifs avec le systéme CAN 
[GOOSSENS 791. 


- Les algorithmes d'unification [HULLOT 791. 


- la synthèse de programmes à partir d'exemples avec le système SISP- 
[JOUANNAUD 771. 


- la compréhension de programmes avec le système RAINBOM 
` [IGREUSSAY 79а]. 


- La synthèse d'images colorées telle qu'elle est pratiquée par Le 
groupe Art et Informatique de l'Université de Vincennes [AUDOIRE 
761, [HUITRIC 76] 


- l'aide à l'éducation des enfants retardés avec le système LOGO/LISP 
[WERTZ 791. 


- Les outils de conception de machines (CHAILLOUX 78b, CHAILLOUX 79b]. 
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1.6 PLAN DE L'ETUDE. 


Notre étude se découpe de la façon suivante : 


Le chapitre 2 traite de la représentation des objets de base manipulés 
par les interprètes (MIS, en particulier de celle des listes, des 
nombres et des symboles atomiques. 


Le chapitre 3 contient la description de la machine référentielle 
VCMC2, utilisée pour construire notre modèle d'implémentation. Nous y 
donnerons de nombreuses statistiques d'utilisation de cette machine. 
L'appendice À contient une description résumée de cette machine et 
l’appendice B le texte du simulateur de cette machine écrit en 
МГІЗР; 10. 


Le chapitre 4 décrit les mécanismes fondamentaux de L’ interprétation 
de MIŞ, en particulier l'accès aux variables et la liaison des 
arguments. Cette description utilise très largement la machine 
référentielle VCMC2 ce qui permet d'évaluer les différentes 
possibilités. 


Le chapitre 5 traite de la conversion des représentations externes des 
objets VISA en représentation interne. L'appendice C contient Le 
texte complet des fonctions d'entrée du modéle de référence écrites en 
VCMC2. 


Le chapitre 6 traite des problèmes de représentation externe des 
objets WLISP| et en particulier ceux relatifs à L'édition des structures 
VLISP: normales, circulaires ou partagées. L'appendice D contient Le 
texte des fonctions écrites en 58 réalisant les éditions des 
programmes MUSEP, L’eppendice E contient le texte des fonctions de 
sortie du modèle de référence écrites en VCMC2. 


Enfin le chapitre 7 est consacré aux concepts avancés de 

l'interprétation du langage. En particulier y seront abordés Les 

problèmes suivants : 

- l’utilisation de La pile comme structure de contrôle hétérogène 

- l'interprétation itératives de certaines fonctions récursives 

- la création de fonctions de contrôle local comme SELF et EXIT 

- La création de fonctions dynamiques (la forme WHERE) 

- ta création de fonctions dynamiques de contrôle non-local (la forme 
ESCAPE) | 

- la création de variables fonctions (la forme LETF) 


Ce dernier chapitre traite également des différents états du système 
et apporte une solution au problème du contrôle des erreurs, ае la 
trace et de l'exécution incrémentale gráce à la notion de chronologie 
d'activation du système. 


L'eppendice F contient la liste complète de l'interprète tel qu'il a 
été décrit aux chapitre 4, et 7. | 


Q^ 


Enfin l'appendice G contient la Liste des tests qui ont servi 
mesurer les performances de notre systeme. 
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CHRPITRE 2 


LA REPRESENTATION 
DES OBJETS MSp 


Les trois réalisations а” interprètes MISP décrites dans cette étude 
ainsi que le modèle d’implémentation qui en découle manipulent des 
objets de type {Note 1} 

- symboles atomiques, 

- nombres, 

- listes, 

qui sont les trois grandes classes d'objets rencontrés dans les 
systèmes LISP. 


Ce chapitre décrit la représentation physique en machine de ces 
objets. L'utilisation de la machine VCMC2 permettra par la suite de 
se dégager des représentations physiques. 


Les objets LISP sont riches et originaux du fait de leur structure et 
de leur gestion : 


- ils sont trop complexes pour étre rangés dans un seul mot machine, 
et. sont en général réprésentés par un pointeur (i.e. une adresse) 
sur la zone mémoire contenant la (ou les) valeurs de l'objet LISP. 


Tout accès à un objet LISP se fait donc par indirection au travers 
d'un pointeur. 


- la gestion de la mémoire qui contient ces objets est dynamique et 
automatique ce qui permet de gérer l’espace mémoire de manière 
optimale. | 


а 


{Note 1} La notion de type sera employée dans ce chapitre de manière 
exclusivement différentielle. 
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2.1 COMMENT REPRESENTER LES LISTES ET LEURS MODIFICATEURS. 


2.1.1 La description des listes 


Trés souvent, un programmeur manipulera les listes comme des séquences 
d'objets. Reste qu'en LISP, Les Listes sont en fait des arbres 
binaires. Chaque noeud de l'arbre est appelé doublet (ou cellule). 
Les deux composants de chaque doublet peuvent faire référence à 
d'autres doublets ou bien à des objets terminaux d'une grande variété, 
les atomes. Les deux composants de chaque doublet sont appelés CAR et 
CDR (dites coudère en Bretagne). Ces deux noms charmants proviennent 
des mnémoniques des instructions d'une très ancienne machine l'IBM 704 
sur laquelle a été implanté Le tout premier LISP, le LISP 1 
[McCARTHY 60al. Les mots de cette machine comprenaient 36 bits, 
séparés en quatre champs dont deux de 15 bits pouvant contenir des 
adresses. Un doublet était représenté par un mot. Les deux 
instructions CAR et CDR, dont les noms signifient Content of Address 
part of Register et Content of Decrement part of Register, 
permettaient d’avoir accès aux deux composants de type adresse d’un 
mot ІМсСАВТНҮ 781. 

Par la suite, ces deux noms sont restés, et toutes les tentatives de 
changement de nom de ces fonctions (en MEM et REM dans le Langage 
TREET CHAINES 691 ou en HD et TL dans Le langage POP2  [BURSTALL 711) 
sont jusqu'à maintenant restées vaines. 


La représentation classique d'un doublet de liste consiste à utiliser 
deux pointeurs : Le pointeur CAR et le pointeur CDR. | 


Nous décrirons un doublet de Liste en mémoire de la manière suivante : 


ou bien par défaut 


Dans Lequel z: représente (е pointeur sur le doublet.(son adresse), x 
le pointeur CAR et y le pointeur CDR. 


Nous représenterons une Liste par un ensemble de doublets entre 
accolades, et les atomes par des lettres capitales. 


Ainsi nous représenterons la liste : 


(A B (C D E 
per l'ensemble de doublets : 
t sel, ec, ecl", vict, wef, xel? 3} 
s: od , U: , v:C w:C| ` С 
1 u v мі x ` NIL ` 
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Cette notation nous permettra de décrire précisement l’action du 
module  d’allocation de doublet (le module CONS) en terme de 
modification de doublets. 


LISP comporte traditionnellement 5 primitives de manipulation de 
doublets de listes, 2 primitives d'accès CAR et CDR, 2 primitives de 
modification RPLACA et RPLACD et 1 primitive de construction CONS. 


1) La primitive d'accés CAR permet d'accéder au pointeur CAR d'un 
doub tet 


a 
(CAR  v:C 
d 


2) la primitive d'accès CDR permet d'accéder au pointeur CDR d'un 
doublet ` 


3) la primitive RPLACA permet de remplacer le pointeur CAR d'un 
doublet. 


a 
(RPLACA v:C 2077 


(RPLACA v: (CAR v:)) + 
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4) la primitive RPLACD permet de remplacer le pointeur CDR d'un 
doublet 


a | 
(RPLACD v:C Р y) ES 


(RPLACD v: (CDR v:)) x» 


S) la primitive CONS permet de construire un doublet de ‘Listes avec 
ses 2 composants CAR et CDR. 


a 
(CONS a d) rx w:C 7 


а 


а а 
(CONS (CAR x:C 47 (CDR кес 420 P xc | 


La deuxième construction réalise une recopie des composants a et d 
du doublet x: dans un doublet neuf y:. 
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2.1.2 La représentation physique des listes 


La représentation physique d'un doublet de Liste est réalisée au moyen 
d'un ou plusieurs mots mémoire consécutifs, contenant le pointeur CAR 
et le pointeur CDR. i 


Le nombre de mots dépend de la machine utilisée et de la taille de ses 
mots. 
Un doublet occupe : 


- 1 mot de 38 bits sur PDP 10 qui a des adresses sur 18 bits : 


| CAR Ir CDR 
8 18 bits > < 18 bits > 


- 2 mots de 16 bits sur T1600, SOLAR ou PDP 11 dont les adresses sont 
sur 16 bits : 


< 16 bits > 
CAR 
CDR 
- 4 mots de 8 bits sur 8080 ou Z80 dont les adresses sont sur 16 


bits : 


e 8 bits > 


CDR poids forts ` 
CDR poids faibles 
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Nous connaissons à présent, grâce aux récentes études de CLARK sur les 

structures de Listes tant statiques que dynamiques [CLARK 77, 791, 

d'une part la fréquence d'utilisation des différents types d'objets 

LISP à 

- Les CAR des doublets contiennent pour 70% d'éléments terminaux 
(symbols atomiques, nombres ou NIL) et pour 30% des listes 

- les CDR. des doublets contiennent pour 75% des pointeurs vers 
d’autres doublets, pour 20% l’atome NIL et pour 5% d’autres éléments 
terminaux. | 

et d'autre part le principe de localité des pointeurs LISP : | 

- prés de 2 pointeurs CDR (vers des Listes) sur З contiennent 

L'adresse du mot suivant. | 


Ceci a amené une nouvelle représentaion compacte des Listes, [е 
COR-coding, utilisé dans 2 réalisations importantes : 

- La machine LISP du M.I.T. [GREENBLATT 74, LISPMACHINE 771 

- Le LISP micro-progammé sur PDP11 de IGRIGNETI 761 

et discuté dans [BAKER 78, LECOUFFE 791. 


Dans cette représentation un doublet de Liste occupe 1 ou 2 mots 
mémoire. Le ler mot contient le pointeur CAR et un code décrivant le 
CDR. 


xx | хххххххххххххххх 


T ^ pointeur CAR 
| code du СОҢ 


Voici les différents codes possibles : 


CDR-Coding 


00 le CDR se trouve dans le mot suivant 
01 le COR est le mot suivant 

le СОЯ est NIL 

pointeur sur un véritable doublet 


` 


Le code 11 sert à réaliser l’indirection d'adresse еп cas de 
déplacement d'un doublet compacté dû à une modification de la partie 
CDR. Cette indirection devra être prise en compte par Les modules 
d'accés CAR, CDR, RPLACA et RPLACD. 


Le gain apporté par une telle organisation est de l'ordre de 30% de 
l’espace. Chiffre non négligeable s'il s'agit du nombre de doublets 
disponibles mais chiffre encore plus avantageux s'il s'agit de La 
taille des adresses. | 
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2.1.3 Gestion des Listes 


L'allocation des doublets de Liste s'effectue par allocation de 
doublets dans une liste de doublets pré-alloués, La Liste Libre. 
Quand celle-ci vient à épuisement, un dispositif connu sous Le nom de 
récupérateur (ou Garbage-collection) est invoqué avec pour mission de 
reconstruire une nouvelle Liste Libre. 


En supposant que Le doublet alloué fait partie d’une Liste de doublets 
Libres (que l'on appelle free:), la primitive CONS vue précédemment 
peut être décrite au moyen des primitives CDR, RPLACA et RPLACD : 


si free: contient 1a liste 


e 


. free: = í x:C 
| y 


f 
# әсі 3 aaa 3 2: } 
9 | 


a 
(CONS a q) fabrique х:С 4 


et la liste libre devient 


| F 
free: = ( уі ә әз у Zï. Z 
9 


Ces problèmes d'allocation et de récupération des doublets de Liste 
ont fait l'objet de nombreuses études récentes [KUROKALIA 77], qui ont 
apportées des solutions au problème du récupérateur fonctionnant en 
parallèle, On peut citer [KNUTH 69 рр. 422] (qui attribue à MINSKY 
l’idée première d’un  récupérateur parallèle), [STEELE 751, 
(DEUTSCH 761, [ADLER 761, [BAKER 781 et [DIJKSTRA 78]. 
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2.2 LES SYMBOLES RTOMIQUES. 


Les symboles atomiques sont (avec les nombres) les éléments terminaux 
des listes. Iis sont parfois appelés atomes Littéraux pour les 
différencier des nombres qui, eux, sont appelés atomes numériques. 


Les symboles sont définis comme un ensemble de propriétés. Une 
propriété est un couple composé du nom de !a propriété et de sa valeur 
associée. IL existe 2 classes de propriétés : 


= les propriétées naturelles ou innées que possédent tous les symboles 
dès leur création. It s’agit d'attributs tels leur nom externe, ou 


leur valeur initiale. Ces propriétés sont en nombre fixe. 


- les propriétes définies par l'utilisateur qui peuvent étre en nombre 
illimité (tout au moins Limité par la taille de la machine). 


Historiquement un symbole était représenté par un doublet de Liste. 
Le CAR de ce doublet contenait un indicateur spécial <*ATOM*> 
indiquant le type terminal de ce doublet, et le CDR contenait la liste 
des propriétés de l'atome (ou P-LIST). 


<*ATOM* D 
P-LIST 


symbole atomique 


Cette représentation permettait d'utiliser les primitives d'accès, de 
modification et de construction des doublets de liste, mais rendait ta 
recherche des propriétés naturelles du symbole longues et dépendantes 
du nombre total de propriétés du symbole (i.e. de ia taille de sa 
P-LIST). 

De même le type d'un pointeur n'était pas direct, il fallait avoir 
accès au CAR du doublet pour savoir s'il s'agissait d'un élément 
terminal de type symbole atomique. | | | P 


Pour résoudre ces 2 problèmes, les systèmes МДӘР stockent les symboles 
en dehors de la zone allouée aux Listes. Un symbole atomique est un 
pointeur sur une zone mémoire contenant les propriétés naturelles du 
symbole. | 
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Notre modèle donne 8 propriétés naturelles à chaque symbole : 


C-VAL (abréviation de Cell-value). 
La valeur associée à cette propriété contient à tout moment la 
valeur МР associée à ce symbole considéré comme une 
variable. L'accés à cette propriété doit être très rapide, 
car c'est la propriété la plus utilisée (voir le chapitre 4). 


P-LIST (abréviation de Property List), 
La valeur associée à cette propriété est ia liste des 
propriétés du symbole créées per l'utilisateur, Cette 
nouvelle liste de propriétés se trouve dans la zone Liste. 
Elle permet de définir un nombre illimité (si ce n'est par Le 
taille de la mémoire allouée aux Listes) de nouvelles 
proriétés. 


F-UAL (abréviation de Function Value). 
La valeur associée à cette propriété contient à tout moment la 
définition de (а fonction МВ associée au symbole si elle 


existe. Cette propriété est décrite au chapitre 4. 


F-TYPE (abréviation de Function Type). 
La valeur de cette propriété est le type de la fonction 
contenue dans la F-val du symbole. Cette propriété est 
décrite au chapitre 4. 


P-TYPE (abréviation de Print Type). 
La valeur de cette propriété contient le type d'édition de Le 
représentation externe du symbole. Cette propriété est 
décrite au chapitre 6. 


A-LINK (abréviation de Atom Link). 
La valeur de cette propriété contient le pointeur sur Le 
symbole suivant de la zone symbole. Ce pointeur, 
indispensable du fait de La taille variable des propriétés 
naturelles d'un symbole permet en outre de gérer le 
hash-coding de ie table des symboles. Cette propriété est 
décrite au chapitre 5. 


P-LEN (abréviation de Print Length). | 
La valeur de cette propriété contient Le nombre de caractéres 
du nom externe du symbole. Cette propriété est décrite au 
chapitre 6. | 


P-NAME (abréviation de Print Name), 
La valeur de cette propriété contient le nom du symbole, і.е. 
les caractères de sa représentation externe. Cette propriété 
est décrite au chapitre 6. 
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P-name : A ou bien P-name 


A La création d'un symbole, ва C-VAL contient la valeur spéciale 
C“INDEFINIE"D qui permet de tester les tentatives d'acces à une C-UAL 
non encore définie, sa P-List contient la valeur NIL, ainsi que Les 
propriétés F-type et P-type. 


La création de l'atome de nom ҒОО réalise donc : 


(* INDEFINE"» 

NIL 
F00:A|NZL 

NIL 


NIL 
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2.3 LE PROBLEME EPINEUX DES NOMBRES. 


Toutes Les machines actuelles sont orientées vers le traitement ce 
données de type nombre. Ог dans (ев systèmes LISP, c'est la 
représentation des nombres qui justement pose un probleme. Pourquoi? 
Parceque dans la plupart des machines les objets de type adresse sont 
homomorphiques avec les objets de type nombre, ce qui permet de 
réaliser des opération arithmétiques (calculs et comparaisons) sur des 
adresses et de ne pas avoir d'instructions spéciales de manipulation 
d'adresses. En LISP il n'est donc pas possible de représenter les 
nombres uniquement par leur valeur. | Enongons le probleme ауес un 
exemple : 


la Liste : (10020 -30.25) 


ne peut pas être représentée ainsi : 


1000 -30.26 
( x:C C } 
у NIL 


car LISP ne saurait pas si le CAR de cette liste est le nombre 1000 ou 
bien l'adresse 1000 qui peut être un pointeur sur un autre objet LISP. 
Пе même pour la seconde valeur -30.26 . 


Plusieurs solutions sont envisageables. Nous les étudierons du point 
de vue : 

- de (а place occupée pour stocker les valeurs 

- du temps d'exécution des opérations sur les valeurs 

- des limitations de la représentation et des calculs 

- de la rapidité du test de type 


1) On peut utiliser des listes de chiffres pour représenter des 
nombres, ces chiffres étant considérés comme des symboles. C'est 
peut-être la solution la plus lispienne mais la moins efficace à la 
fois du point de vue occupation mémoire et temps d'exécution que du 
point de vue temps du test de type. Toutefois, comnme cette 
représentation utilise Les primitives d'accés et de construction 
des listes, il n'y a pas de limites quant à la taille des nombres 
et cela permet de faire des calculs arithmétiques en iongeur 
variable. Cette représentation n’est plus jamais utilisée pour des 
raisons d'efficacité. | Toutefois Les packages d'arithnét 
Longeur variable (les Bignums) utilisent cette méthode mai 

des Listes de nombres dépendants du nombre de hits 2ісстт 25 

mot-mémoire. | 
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2) On utilise un doublet de Liste, à 1а manière des symboles 
atomiques. Le CAR de ce doublet contient l'indicateur spécial 
«*NOMBRE"» indiquant d'une part le type terminal de ce doublet еї 
d'autre part que le CDR contient non pas un pointeur LISP mais une 
valeur numérique. 


X€*NOMBRE*» 
nombre 


valeur numérique 


Cette représentation qui permet d'utiliser les possibilités de la 
mechine quant aux calculs mais occupe deux fois plus de mémoire que 
nécessaire et ne permet pas un test direct du type du pointeur (ce 
test étant réalisé après accès au CAR). En revanche l'indicateur 
C*NOMBRE"D peut servir à typer la valeur numérique et prendre les 
noms €*NOMBRE ENTIER*5, <*NOMBRE FLOTTANT*). | 


3) Comme pour [ев symboles atomiques, il est également possible de 
stocker les valeurs numériques dans des zones mémoire différentes 
de celle des Listes. Ces zones mémoires (une par type de nombre : 
entiers, flottants, flottants double précision — š ne 
contiendront que des valeurs numériques. 


Nous décrirons donc les nombres ainsi : 


valeur:N] ou valeur pour les nombres entiers 


valeur:F| оч valeur pour Les nombres flottants 


Cette représentation permet d'utiliser au mieux les possibilités de 

_ la machine, de n'occuper que l'espace strictement nécessaire et 
permet de réaliser le test de type par simple comparaison 
d'adresse. Cette méthode demande cependant Le création de modu'es 
spécialisés d’allocation et de récupération de l’espace réservé aux 
nombres. | 


Nos réalisations utiliseront cette dernière méthode. 
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2.4 COMMENT DIFFERENCIER LES TYPES ? 


Une des opérations de l'interprète les plus fréquentes sur les 
pointeurs LISP est le test de type. En effet, presque toujours avant 
de traiter un objet, il faut en déterminer le type, pour demander des 
conversions de type automatiques, pour provoquer des erreurs, voire 
pour arréter le traitement. 


Si La représentation des objets LISP n'utilise que des doublets de 
Liste, les tests de type se résument à une consultation de la partie 
CAR de ce doublet qui contient dans Le cas d'objets terminaux des 
indicateurs spéciaux. Ce mode de test oblige un accès à la mémoire et 
une suite de tests des indicateurs spéciaux (pour chaque type d'objets 
terminaux du système), ce qui est long et encombrant. 


Si les valeurs des objets LISP sont rangées dans des zones propres à 
chaque type, le type d'un objet devient une fonction de son adresse. 
Dans cette organisation deux cas peuvent se produire : 


1) la zone allouée à un type occupe un espace mémoire d'un seul tenant 
limité par les adresses Dz pour Le début de la zone et Fz pour la 
fin de la zone. 

Le test de type se ramàne à un test d'adresse : 


Dz < pointeur < Es 


2) la zone allouée à un type est en plusieurs morceaux. Оп suppose 
dans ce cas que la mémoire est partagée en un certain nombre de 
blocs de taille fixe. À chacun de ces blocs est assigné un type 
(statiquement à l'initialisation du système ou dynamiquement en cas 
de remplissage de l'espace alloué à un type) que le système gère en 
tenant à jour une table de types des blocs (Note 1}. Le test de 
type consiste alors à déterminer le bloc dans lequel se trouve le 
pointeur puis à tester le type qui se trouve dans la table des 
types des blocs. Cette manipulation est dans la plupart des 
machines actuelles plus lente que la méthode vue précédemment car 
il est en général peu aisé d'isoler la partie de l'adresse qui fait 
office de numéro de bloc. 


(Note 1} Une des peu nombreuses réalisations de ce type, en MACLISP 
est appelée BIBOP (acronyme de BIg Bag Of Pages) [STEELE 74, 
BAKER 77b]. | | 
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2.5 UNE INCARNATION : LE SYSTEME №1159) 11. 


Voici à titre d'exemple d'implantation réelle les représentations des 
objets utilisés dans le système 11 {Note 1} fonctionnant sur 
ordinateur PDP-11 de Digital Equipment [DEC 75al sous moniteur  RT11 
[DEC 78cl. 


Description sommaire de la machine PDP-11 


- machine à mots de 16 bits | 

- mémoire adressable par octets ou par mots de 16 bits 

- taille maximum de la mémoire 28k mots de 16 bits 

- 8 registres banalisés de 16 bits (parmi lesquels se 
trouvent Le compteur ordinal lui-même et le pointeur 
de pile) 

- une pile en mémoire vive 

- un puissant mode d'adressage 


La mémoire est divisée en 6 zones de tailles fixes qui contiennent 
respectivement : 


1/ 


le système PDP 11 


e/ 
les listes 


les eymboles atomiques 


les nombres 


5/ E 
la pile du système VLISP 


(Note 1) La réalisation de ce système est due à Patrick GREUSSAY 
[cREUSSAY 79b]. 
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/ 
U interprète 11 


La zone contenant l'interprète et la zone contenant le système PDP 11 
contiennent des instructions machine. Les 4 autres zones contiennent 
des objets МР. 


Toute référence à un objet МПӘРІ est réalisée par ип pointeur de 16 
bits qui contient son adresse absolue. 


2.5.1 Les Listes 
Un doublet de Liste est représenté par 2 mots contigus dans la zone 


mémoire allouée aux Listes. Le premier mot contient le pointeur CAR, 
{е deuxième le pointeur CDR du doublet. 


pointeur eur un doublet > г pointeur CAR 1 (1 mot) 
E pointeur CDR 1 (1 mot) 


L'accés au pointeur CAR est réalisé par l'instruction : 
MOU (source), destination 
L'accès au pointeur CDR est réalisée par l'intruction : 
МСО +2 (sourcs),dest nat ion 
IL est également possible d'utiliser les modes  d'adressages 
auto-incrément et auto-décrément de la machine PDPIT et réaliser 
l'accès au pointeur CAR puis l'accès au pointeur СОА en 2 instructions 


de 1 mot chacunes : 


MOV {source)+,destination-CfR 
ROU (source) ,destination-CD2 
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2.5.2 Les symboles atomiques 


La référence à un symbole atomique est un pointeur vers un descritif 
stocké dans la zone mémoire allouée aux symboles atomiques. Ce 
descriptif de longeur variable contient les propriétés naturelles du 
symbole. Ces propriétés sont rangées de la manière suivante : 


référence au symbole » C-valeur du symbole mot) 
СГ P-liste du symbole mot) 


F-valeur du symbole mot) 
F-type 1 octet) 


P-type 1 octet) 
A-tink du symbole mot) 
P-len 1 octet) 
P-name octets) 


La zone mémoire nécessaire pour représenter un symbole atomique est 
donc égale à 11+п octets (n étant Le nombre d'octets du P-name i.e. 
son P-LEN). Les références aux différentes propriétés naturelles sont 
réalisées directement en utilisant l'adressage indexé du PDP 11. 


2.5.3 Les nombres 


IL existe trois types de nombres dans le système MLISP| 11. 

- Les petits nombres entiers positifs (de 0 à 2000) 

- les autres nombres entiers (représentés sur 32 bits) 

- les nombres flottants (représentés sur 32 bits également). 


1) tes petits nombres entiers positifs sont représentés par un 
pointeur sur la zone interprète elle-même. 


2) les autres nombres entiers sont rangés à raison de 2 mots de 15 
bits par valeur dans une pertie de la zone réservée aux nombres. 


3) et les nombres flottants, également rangés à raison de 2 mots de 16 


bits par valeur, dans l'autre partie de la zone réservée aux 
nombres. | 


Les 4 zones contenant les objets MISE (Listes, nombres, symboles еї 
pile) sont gérées dynamiquement. 


Enfin les zones occupant des espaces contigus et fixes de la mémoire, 
Le test de type peut êtra réalisé par simple comparaisons d'adresses. 
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CHAPITRE 3 


LA MACHINE UCMCe 


Ce chapitre décrit la machine VCMC2 utilisée dans cette étude. 
La conception et l'utilisation de La machine VCMC2 ont été conduites 
par les idées suivantes : 


1) VCMC2 est une machine. 


La description de l'implantation de notre modele dans cette machine 
prend en ‘compte Les limitations inhérentes à l’utilisation d'une 
machine : | 

- les ressources (de type mémoires ou registres) sont limitées 

- toute manipulation d'objets doit être explicitée au moyen d’un 


jeu d'instruction fixe. 
2) VCMC2 est une machine virtuelle. 


Elle permet de se libérer des contraintes d'une machine spécifique, 
notamment au niveau de la représentation interne des objets. 


3) VCMC2 est une machine référentielle. 
La description du modèle est portable (les trois systèmes ont été 
construit très rapidement en quelques semaines) et concise (La 
taille de l'interprète et des 160 fonctions standard est de l’ordre 
de 2 k mots). 


4) VCMC2 est une machine prototype. 


Elle sert d'étude préliminaire à la réalisation d'une machine VCMC2 
réelle contruite autour d'un micro-processeur bipolaire à tranches 


tel Le Am2900 [AMD 78a] 
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3.1 ORGANISATION DE LA MACHINE. 


La machine VCMC2 est composée d’une mémoire, de registres et d’une 
Unité Arithmétique et Logique. 


3.1.1 La mémoire 


La mémoire de la machine VCMC2 est une mémoire à accès aléatoire. La 
taille de ses mots n’est pas fixée et dépend des incarnations 
particulières de La machine sur des matériels existants. Un mot VCMC2 
doit pouvoir contenir une adresse. De la taille d’un mot va dépendre 
donc la taille maximale de la mémoire (son espace-adresse) {Note 1}. 


Cette mémoire est découpée en plusieurs zones. Chacune de ces zones 
contient un type de donnée fixé. 


On distingue les zones suivantes : 


1- la zone mémoire contenant les programmes (l'interprète, Les 
fonctions d’entrée-sortie, les mémoires de travail ...). Cette 
zone n'est pas allouée dynamiquement. On appelle cette zone la 
zone code. 


2- la pile. Cette zone mémoire est géré automatiquement par la 
machine au moyen d'instructions spécifiques faisant intervenir un 
pointeur spécial, le pointeur de pile. Cette pile peut être conçue 
comme un processeur externe avec sa propre mémoire à la manière de 
la pile de la machine LISP NK3 INAGAO 791. 


3- la zone mémoire contenant ies Listes. Cette zone manipulable раг 
des intructions spécifiques de la machine est gérée dynamiquement. 


4- la zone mémoire contenant les nombres. Comme pour la zone 
précédente, la gestion de cette zone est autometique et dynamique. 


5. la zone mémoire contenant les symboles atomiques, qui est gérée 
elle aussi dynamiquement. 


La notion de zones mémoire peut être assimilée à La notion de SEGMENTS 
mémoire tels qu’ils sont apparus dans Les nouveaux micro-processeurs à 
mots de 16 bits comme Le Intel/8086 [INTEL 79] ou le 28000 [AMD 791. 


—— mi I 


{Note 1} la plupart des machines avaient jusqu'à maintenant des 
adresses sur 16 bits qui ne permettaient d'adresser que 64 k mots, ce 
qui est très insuffisant pour des machines МДЕР. La tendance actuelle 
(avec les micro-processeurs à mots de 16 bits) est à l'augmentation 
des tailles des adresse : 20 bits pour Te Intel 6066 [INTEL 79] 
permettant ainsi d'adresser 1 M-octets, 23 bits pour le Zilog 8000 
51 79] ou le Motorola 68000 [MOTOROLA 791) permettant d'adresser 
M-mots. 
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3.1.2 Les registres 


Pour des raisons de rapidité d'exécution, {а machine VCMC2 dispose de 
mémoires rapides (ou registres). Le nombre des registres est limité à 
7 dans notre modèle. 

Trois d’entre eux sont affectés à des taches particulières (PC, SP, 
IX) et un nombre de A registres de travail a été retenu au vu des 
statistiques d'utilisation des registres de travail fNote 1}. En 
outre le nombre limité de registres facilite les implémentations du 
modèle sur Les machines existantes comme Le PDP11 (à 8 registres), [е 
8080 (à 5 registres) {Note 2), le PDP10, Z8000, Am2900 à 16 registres. 


Ilya 3 registres spécialisés, utilisés par la machine, et 4 
registres de travail banalisés, utilisés par l'interprète. 


1- РС: ce registre est le compteur ordinal de la machine VCMC2 et 
contient donc, à tout moment, l'adresse de l'instruction suivante à 
exécuter par la machine. PC fait office de pointeur sur Le 
programme. | 


2- SP: ce registre est le pointeur de pile. IL contient à tout 
moment L'adresse du dernier mot empilé et est actualisé à chaque 
modification de cette pile. 


3- IX : ce registre est Le seul registre d'index de la machine et est 
utilisé pour pointer sur les mémoires de travail de la zone code. 


4- Al: езі le premier registre de travail (ou accumulateur 1) 
5- A2 : est le deuxième registre de travail (ou eccumulateur 2) 
6- A3: est le troisième registre de travail (ou accumulateur 3) 


7- A4 : est Le quatrième registre de travail (ou accumulateur 4) 


| - 2 
{Note 1) les statistiques données au paragraphe 3.3.2. montrent que 
le premier registre de travail est utilisé dynamiquement pour 37% des 
opérandes, le second pour 19% des opérandes, le troisième pour 7% et 
Je quatrième pour moins de 3%. L'ajout de registres de travail 
supplémentaires n'est donc pas nécessaire. 


{Note 2} le 8030 ne possède que 5 registres pouvant contenir des 
pointeurs : РС, SP, НІ, DE et BC. Les registres manquants sont 
remplacés par des mots en mémoire ce qui permet d'utiliser le modèle 
mais fait perdre de l'efficacité. 
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3.1.3 L'unité arithmétique et logique (U.A.L.) 


VCMC2 doit disposer d'une UAL universelle permettant de réaliser aussi 
bien des manipulations de pointeurs, que des tests de type ou encore 
des opérations arithmétiques. Les UALs bipolaires de type Am2903 
[AMD 78a] sont parfaitement suffisantes pour la partie logique et 
L'unité arithmétique Am9511 [AMD 78c] (quoique un peu Lente : 54-368 
cycles pour l'addition flottante 32 bits) permet des calculs 
arithmétiques sur des nombres entiers représentés sur 16 ou 32 bits et 
sur des nombres flottants représentés sur 32 bits. 


ЕРКЕККЕ 
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3.2 LES OBJETS TRAITES ET LES OPERANDES. 


La machine VCMC2 va traiter des pointeurs. Un pointeur est l'adresse 
d'un objet МР à laquelle est associé un type. Се type est La zone 
mémoire dans laquelle il est contenu. Tout accès à la valeur d'un 
objet МР (ou eux différentes valeurs si l’objet est un symbole 
atomique) s'opére par indirection au travers de ce pointeur, dans La 
zone mémoire correspondante, au moyen d'instructions propres à chaque 
valeur. | 


La machine VCMC2 possède 4 types de pointeurs qui sont : 

- le type symbole atomique 

- le type nombre 

- le type liste 

- le type objet binaire (qui englobe tout ce qui n'est pas objet MISE, 
i.e. la zone pile, et la zone code qui contient les instructions et 
les mémoires de travail de l'interpréte). 


Ces types ont été définis sur la base d’une gestion (allocation et 
récupération) spécifique de chacune des zones mémoire. La taille des 
pointeurs n'est pas déterminée par La machine VCMC2 mais par chacune 
de ses incarnations particulières. De même le nombre de types 
disponibles peut étre augmenté pour tenir compte du matériel utilisé. 


Voici les types disponibles dans une machine à 8 types : 


pointeur un symbole atomique 
pointeur un nombre entier 
pointeur un nombre réel 

pointeur une chaîne de caractères 
pointeur un doublet de Liste 
pointeur une liste compactée 
pointeur un élément de la pile 
pointeur une instruction 


pd dd E O OOO 
Eech — CH OQ — — O O 
—O0m 50-020 


0 
1 
2 
3 
A 
9 
6 
7 


L'exécution de la plupart des intructions s'opère sur des opérandes de 
type défini (par exemple l’addition s'opére entre 2 opérandes de type 
nombre, l'instruction CAR sur un opérande de type Liste). 

La machine VCMC2 opére un contróle de validité de type à chaque 
exécution d'une (instruction et provoque une erreur avec interruption 
dans la machine, en cas de mauvaise utilisation de pointeur en lecture 
ou en écriture. 
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3.3 LES CHAMPS D'UNE INSTRUCTION ET LEUR DECODRGE. 


к=з эы V r E si geg 


Une instruction est la description d'une action à réaliser par La 
machine VCMC2. Ces instructions sont stockées dans la zone mémoire 
. réservée à cet effet, la zone code. Chaque instruction est décrite au 
moyen d'un à quatre mots de la machine, la machine VCMC2 utilise donc 
des instructions de longeur variable. Cette architecture de machine 
que l'on rencontre dans les ordinateurs de type FDP/11 ou Intel/8086, 
permet d'utiliser des opérandes explicites et de gérer au mieux la 
place mémoire і.е. en  minimisant l’espace occupé par Les 
instructions. 


p———————————————————————————— à 


Le 8086 [INTEL 79] a des instructions codées sur 6 bits et 
possède 3 formats d'instruction de saut inconditionnel 


1) Le saut relatif. 
le mot suivant l'instruction contient un déplacement qui 
ajouté au PC livre l'adresse de branchement. Cette 
instruction est codée sur 2 mots. Un mot contient 
l'instruction et l'autre 1e déplacement : 


Saut relatif 
Déplacement 


хы 
x k 
X ka 
x © 
x ka 
x © 
x ka 
x ka 


2) Le saut direct dans le segment code. 
Les 2 mots suivants contiennent l'adresse de saut à 
l'intérieur du segment code sur 16 bits. Cette instruction 
est codée sur 3 mots. Un mot contient l'instruction et les 
2 mots suivants l'adresse : 


Saut dans le segment 


Adresse basse 
Adresse haute 


3) Le saut intersegment. 
Les 2 mots suivants contiennent l'adresse de saut à 
l'intérieur d'un segment dont l'adresse est donnée 


également dans les 2 mots suivants le déplacement. Cette 
instruction est codée sur 5 mots. Un mot contient 
l'instruction, 2 mots le déplacement et 2 mots l'adresse du 
segment. 
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Saut intersegment 
Adresse basse 

Adresse haute 

Adresse basse segment 
Adresse haute segment 


Cette disposition permet donc de minimiser Ta taille des 
programmes, en occupant au mieux l'espace programme. 


| 


Dans la machine VCMC2 le premier mot de chaque instruction possède un 
format unique pour toutes les intructions, ce qui permet un décodage 
simplifié et rapide en cas de réalisation effective. 


Ce premier mot est découpé en 4 champs : 
- le champ code instruction 
- le champ premier opérande (opérande source) 


- le champ second opérande (opérande destination) 
- et (е champ CONTINUATION 


Ces différents champs vont être décrits fonctionnellement. 


3.3.1 Le champ code instruction 


Le champ code instruction contient l’action à réaliser sur les 


opérandes. Ce champ est représenté par le nom mnémonique de 
l'instruction. Seul ce champ est obligatoire pour toutes Les 
instructions. Les différentes instructions sont décrites au 


paragraphe 3.4 ainsi que les tablaux d’apparition statique et 
dynamique des différentes instructions. | 
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3.3.2 Les champs ccérandss 


Chaque instruction peut contenir La spécification 471 ou de 2 
opérandes qui vont intervenir durant son exécution. Le premier 
opérande s'appelle opérande source et le second opérande destiration, 
par analogie avec l'intruction de transfert. Cette instruction qui se 
nomme MOVE, possède 2 opérandes. Le premier est l'émetteur (le 
source) et le second le récepteur (la destination). L’instruction 
transfère le contenu de l'émetteur dans le récepteur. 


La machine VCMC2 possède 8 opérandes standard : 


1) ta constante NIL. 
Opérande | NIL 


Cet opérande est utilisé pour spécifier La constante NIL (sens 
utiliser Les instructions spéciales de manipulation de symboles 
atomiques). Il ne doit jamais apparaître en position opérande 
destination, sous peine de déclencher une erreur de la machin 
VCMC2. - IL n'est pas possible en effet de modifier une des 
propriétés naturelles de la constante NIL car la machine Les 
utilise fréquemment pour ses besoins propres et ne teste pas leur 
validité pour des raisons d'efficacité. 


2) l’un des 4 registres généraux (accumulateurs) de la machine. 


Opérandes | Al, A2, АЗ ou A4 


3) le sommet de la pile. 


Opérande | TST 


Cet opérande permet d'utiliser la. pile. Employé comme  opéran 
source, il réalise une opération de dépilage, et employé comm 
opérande destination, il réalise une opération d'empilage. Dar 
ces deux cas, le pointeur de pile (SP) est actualisé pour pointer 
sur le dernier mot етрі(ше et dans ces deux cas la pile es 
modifiée. En ces ce débordement de la pile ou de vidags ce 
celle-ci, une erreur Ze la machine VCMC2 apparaît. 


©. 


о D © 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 60 / 362 


LA MACHINE ҮСМС2 Page 59 


BN mraÑaa mn 


4) un pointeur explicite qui se trouve dans le mot mémoire suivant 
l'instruction. Ce pointeur peut-être un pointeur sur un objet 
ou bien un pointeur sur la zone mémoire contenant (ев programmes 
(ces pointeurs sont représentés au moyen d'étiquettes dans la zone 
code). Cet opérande s'appelle opérande immédiat. 


Opérande | 'objet-[VLISP ou ( adresse-mémoire ) 


5) un pointeur dont l'adresse se trouve dans le mot mémoire suivant 
L’intruction. Cet opérande permet d'accéder directement à des mots 
mémoire de іа zone code dont on connait l'adresse. Cet opérande 
s'appelle opérande direct. 


| Opérande | ( 8 adresse-memoire ) | 


Voici les fréquences d'utilisation des 8 types d'opérandes de Le 
machine  VCMC2. Les fréquences statiques ont été calculées en 
analysant tout Le code VCMC2 des appendices C, E et F. Les fréquences 
dynamiques ont été calculées en analysant le test de L' appendice б. 


e 


Occurrences statigues des opérandes 


Nombre d'opérandes visités : 2640 
Nombre d'instructions : 1320 


1 
e 


% 
fo 
% 
% 
% 
% 


21.82 % 
12.42 % 
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Occurrences dynamiques ces opérandes 


Nb d'opérandes évalués : 148113 
Nb d'instructions exécutées : 80202 


1 
e 
3 
4 
5 
6 
d 
8 


DIRECT 


Ces données indiquent que : 


- L'utilisation intensive des registres généraux : plus de 50% еп 
statique et plus de 60% en dynamique. Ces chiffres montrent bien 
l'utilité d'un petit nombre de registres rapides qui font gagner 60% 
des accès mémoire réalisés par La machine pour accéder aux 
opérandes. 


- la fréquence d'utilisation décroissante des différents registres de 
travail (Al, A2, A3, A4) pour arriver jusqu'à 4% d'utilisation 
dynamique pour Аё, ce qui montre que le nombre de 4 registres de 
travail est bien adapté et que !e rajout d'autres registres 
n'améliorerait pas sensiblement les performances du modèle. 
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3.3.3 Le champ continuation 


Chaque instruction possède un quatrième champ, Le champ continuation, 
qui spécifie l'adresse de l'instruction suivante à exécuter {Note 1 
et 2]. 


L'introduction de ce dernier champ permet : 


1) de réduire la place occupée par les programmes. Toute instruction 
possédant un champ continuation, les instructions de contróle de 
séquence deviennent inutiles. 


2) de gérer les ruptures de séquence conditionnelles en Les réalisant 
par inhibition ou validation de l'interprétation du champ 
continuation. 


3) de faciliter la réalisation de la micro-machine qui pourra utiliser 
directement ce champ pour commander Le séquenceur (à la manière du 
micro-séquenceur Am2911 de la famille 2900 [AMD 7851). 


Pour réduire l'espace occupé par ce champ, l'adresse de l'instruction 
suivante peut être scit implicite, par utilisation du registre PC ou 
de la pile, soit explicite et dans ce cas ¿l faut pouvoir spécifier 
une nouvelle adresse. 


Nous avons donc choisi quatre continuations standard dans la machine 


VCMC2 : 


1) ta continuation NOP. 
Elle indique la séquentialité d'exécution, La prochaine instruction 
à exécuter se trouve à ‘а suite, il n'y a pas de rupture de 
séquence. 


Continuation | ІМӘР1 ou bien omission du champ 


2) la continuation JUMP. 
Elle indique une rupture de séquence (un branchement). L'adresse 
de l’intruction suivante à exécuter se trouve dans Le mot mémoire 


___ 22222 ы 8 — — — ———  ——— 


(Note 1] ce champ qui est présent dans les micro-machines se retrouve 
même dans des langages très évolués, par exemple le 6010 FIELD de 
SNOBOL 4 [GRISWOLD 71]. 


{Note 2} La notion de continuation évoquée ici n'est pas totaiement 
étrangère à son emploi en sémantique dénotationnelle [ROBINET 79] mais 
s'en distingue par Son orientation résolument opérationnelle. 


http;//www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 63 / 362 


Page 62 LA MACHINE VCMC2 
ec 


qui suit l'intruction. 


Continuation | [JUMP (adresse-memoire)] 


3) la continuation CALL. ° 
Elle indique un appel де sous-programme. L'adresse du 
sous-programme à exécuter se trouve dans le mot mémoire suivant 
l'instruction (d'une manière identique à la continuation JUMP). De 
plus avant d'exécuter ce branchement, l'adresse de 1° instruction 
qui devait être exécutée en séquence est empilée dans la pile 
pointée par SP. | 


Continuation : [CALL (adresse-mémoire)]) 


4) la continuation RETURN. 
Elle indique un retour de  sous-programme. L'adresse de 
l'instruction suivante à exécuter se trouve dans le sommet de la 
pile. Après dépilage de cette adresse, le pointeur de pile (SP) 
est mis à jour. 


Continuation | [RETURN] 


Les tableaux suivants montrent la fréquence d'apparition des champs 
continuations dans la machine VCMC2, avec les mêmes tests que pour 
L'analyse des champs opérandes du paragraphe précédent. 


Occurrences statiques des cont inuat ions 


Nombre de champs continuation : 684 
Nombre d'instructions : 1320 


JUMP 


1 
e CALL 
3 RETURN 
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Occurrences dynamiques des continuat ions 


Nb de cont inuat ions : 25058 
Nb d'instructions exécutées : 80202 


JUMP 14708 58.7 % 18.34 9 
CALL 3552 14.18 % 4.43 
RETURN 6788 27.13% 8.48 


Ces tableaux nous montre l’utilisation intensive de ces champs, de 
manière statique (plus de 50% des instructions ont un champ 
continuation différent de NOP, donc utilisé) et de manière dynamique 
(plus de 30% des instructions exécutées possèdent un champ 
continuation). 


Le gain en occupation mémoire apporté par son utilisation est très 
important. Еп effet si le champ continuation d'une instruction est 
codé sur (bcont> bits, et une instruction sur <binst> bits, chaque 
continuation faisant | gagner un mot mémoire (qui contiendrait 
l'instruction de branchement si la machine ne possède pas ce champ) Le 
gain en mots obtenu par l'utilisation de €ncont? champs continuation 
dans un ensemble de (ninst5 instructions est de : 


gain s ((<ncont> " <binst>) - (4ninst» * <bcont>)) / «binst» 


Dans Le machine VCMC2 à pointeurs de 16 bits, les champs continuation 
sont codés sur 2 bits. Le gain, en mots, dans le cas de l'étude 
statique (1283 instructions occupant 2061 mots et 648 continuations) 
est de : 


((664 x 16)-(1320 x 2)) / 16 
i.e. 499 mots. 
donc sur 2125 mots un gain de 24% 
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3.3.4 Représentation d’une instruction 


Chaque instruction est codée dans un mot de la mémoire, ce mot pouvant 
être suivi de un à trois pointeurs (un pointeur décrivant L'opérande 
source, un pointeur décrivant L' opérande destination et un pointeur 
décrivant la continuation). IL y a donc 4 formats possibles 
d’ instructions : Les instructions occupant 1 mot, 2 mots, 3 mots et 4 
mots. 


Les tableaux suivants montrent la fréquence d'apparition, statique et 
dynamique, de chacun de ces formats, en utilisant les mêmes tests que 
pour les champs précédents : 


Occurrences statiques des formets 


Nombre d'instructions 
Nombre de mots 


49.84 % 
41.87 % 
7.95 € 
1.14 & 


Occurrences dynamiques des formate 


Nb d'instructions exécutées : 80202 
No de mots des instructions : 126588 


1 40328 50.28 % 
2 31376 39.12 % 
3 8484 10.58 % 
á 14 0 % 


Ces tebleaux montrent que La souplesse d'utilisation obtenue grâce aux 
instructions de  longeur varieble ne grève pas l’occupation de la ` 
mémoire, en effet (а moyenne d'occupation par instruction est de 1,5 


mots. 
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Voici la disposition des champs des instructions Gas une machine à 
mots de 16 bits (chaque x représente 1 bit) (Note 1}: 


, code ` opérande opérande champs 
instruction source destination continuation 


Dans cette étude, les instructions VCMC2 sont représentées en 


utilisant un langage d'assemblage. Une instruction est décrite par 
une ligne qui contient : 


1) une étiquette optionnelle <et>: qui est un nom symbolique repérant 
LU instruction. 


2) le nom mnémonique de l'instruction «opcode». Ces noms ainsi que 
Leurs actions sont décrites au paragraphe 3.4. 


3) les arguments de l'instruction, i.e. (ев opérandes «source» «dest» 
et continuation «cont», séparés entre eux par des virgules, 


4) Le champ continuation est encadré de crochets carrés [ «cont» 1 
P 


5) les commentaires sont annoncés par le caractère ;  (point-virgule) 
et se terminent à la fin de chaque ligne. 


<et>: «opcode» «source» , «dest» , [ <cont> 1 


eee —————————————___———— 
(Note 1) cette taille qui réduit considérablement l'espace adresse à 


été conservée pour pouvoir implanter cette machine sur les machines 
Inte! 8080 et PDP 11 qui possàdent des adresses sur 16 bits. 
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3.3.5 Evaluation d'une instruction 


L'évaluation d'une instruction se dércule en á phases : 
1) Recherche de l'adresse de l'opérande seurce. 
2) Recherche de l'adresse de l'opérande destination. 


3) Exécution de l'instruction. Toutes les inetructions, en plus d'une 
action spécifique, positionnent un indicateur, Le 
code-condition, CC. Cet indicateur peut avoir 2 valeurs : NIL ou 
T et est positionné en fonction du résuiat de l' instruction. 


4) Si te CC est égal à T (est vrai), [е chemp continuation est  décodé 
puis exécuté. Si le CC est égal à NIL (est faux), le champ 
continuation n'est pas décodé et La continuation NOP est 
systématiquement exécutée (aprés avoir sauté L'opérande du champ 
continuation dans le cas d'une continuation de type JUMP ou CALL 
non exécutée). 


L'évaluation des différents champs se déroule dans un ordre 
précis : opérande source, puis opérende destination enfin champ 
continuation, ce qui permet de lever l’enbiguité dans 1а position 


des opérandes dans le cas où plusieurs arguments sont situés sous 
L' instruction. 


Par exemple l'instruction : 


«opcode» = 'FOO,'BRR,LJL'MP (ВЕ) 1) 


est rangée sur 4 mots dans la zone code de la manière suivante : 


«opcode» 
' FOO 


' BRR 
(RE) 


La machine considérera 'FDO comme étert Le premier opérande,  'BRR 
comme second opérende et (RE) comme 242-2330 du champ continuation. 
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3.4 DESCRIPTION DES INSTRUCTIONS. 


Ce paragraphe contient la description de toutes les intructions VCMC2 
et l'appendice fi contient une description résumée de notre machine 
destinée à faciliter la lecture des différents segments de programmes 
qui suivront. 


Voici les notations que nous  utiliserons pour décrire les 
instructions : 


l’opérande source 
l’opérande destination 


est transféré dans 
est échangé avec 
La nouvelle valeur du code condition. 


’attribut CVAL d'un symbole atomique 
*'attribut PLIST d'un symbole Slon ique 


‘attribut FVAL d'un symbole atomique 
'attribut FTYP d’un symbole atomique 
‘attribut PTYP d'un symbole atomique 


L'addition 

la soustraction 
multiplication 
division 
reste de la division 
ou inclusif logique 
et logique 
ou exclusif logique 


partie CAR d’un doublet 
partie CDR d’un doublet 
doublet de liste, 
x est la partie CAR 
y est la pertie CDR 


registre pointeur de pile 
contenu du sommet de pile 


le registre d' index 
opérande indexé i.e. un opérande 


` 


un 
dont l'adresse est égale а: = x + y 
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3.4.1 Le transfert 


. * r ` 2 % 7 
L'instruction MOVE transfère 1” орегалде source dans L'opérande 
destination. 


MOUE | «s» ə «d» & CC= Т 


Cette instruction est la plus utilisée : du fait de la puissance des 


opérandes, elle permet en effet tous Les transferts : 


registre > registre 
ou mémoire vers ou mémoire 
ou pile < ou pile 


3.4.2 Manipulation des symboles atomiques 


Les 10 instructions qui suivent vont permettre d'accéder aux 
propriétés naturelles C-VAL, P-LIST, F-UAL, F-TYPE et P-TYPE des 
symboles atomiques. IL existe 2 instructions pour chacune des 
propriétés, une instruction de lecture et une instructions d’écriture 


de la propriété. Elles permettent des transferts de type : 


registre la zone 


ou mémoire des symboles 
ou pite atomiques 
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(CVAL <s>) 
<s> 


<d> 
(CVAL <d>) 
(PLIST «s») 


«d» 

(PLIST <d>) 
«d» 

(FVAL «d») 
«d» 

(FTYP «d») 
«d» 

(PTYP <d>) 


<s> 


(FVAL <s>) 


<s> 
(FTYP <s>) 
<s> 


(PTYP <s>) 
<s> 


Qo Qo Qo Qo (2o Qo Qo Qo Qo Do 
<À =À = ll -4 zl = ll 


¿il 4111111 


NB : Le préfixe S (pour SET) devant les instructions indique un accès 
en écriture de la propriété. 


3.4.3 Manipulation des nombres 


Ces instructions réalisent les opérations arithmétiques. Si Les 
opérandes ne sont pas de type nombre ou si les instructions provoquent 
des exceptions arithmétiques (débordement de capacité, division par 
0), une erreur (Note 1} de la machine VCMC2 se produit. La machine se 
charge de la gestion de la zone allouée aux nombres et en particulier 
du stockage de ia valeur du résultat. 


<s> + 
«S» - 
«S» ж 

/ 


<s> 


<s> \ 
<S> ou 
<s> et 


LOGXOR <S> oux 


A P E D E EE E 
RO (Qo Qo Qo Qo Ço Qo 00 
—41-4-4-4—4—9—4—4 


oO nn 
{Note 1} en cas d'erreur le programme est automatiquement dérouté ( au 
moyen d'un TRAP) vers un module spécialisé de traitement d'exception. 
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3.4.4 Manipulation des pointeurs sur Les Listes 


Ce groupe d'instructions permet d'accéder à la zone des doublets de 
Liste. Cette zone est gérée automatiquement par la machine VCMC2. En 
particulier le récupérateur de cette zone est partie intégrante de la 
machine VCMC2. Si le récupérateur ne peut plus fonctionner (si la 
zone est pleine) une erreur VCMC2 se déclenche. | 


registre > la zone 
mémoire vers des doublets 
ou pile e 


de liste 


(CAR <s>) <d> 
(CDR <s>) <d> 
«s» (CAR «d») 
«s» (CDR <d>) 
( «s» . «d» ) «d» 
( «d» . «e» ) «d» 


Les intructions SCAR et SCDR correspondent aux primitives de 
manipulation de Liste RPLACA et RPLACD. 


Du fait de la non-symétrie des opérandes (NIL ne peut pas se trouver 
en position destination, TST empile ou dépile en fonction de sa 
position) il existe 2 instructions symétriques de création de doublet 
de liste : CONS et  XCONS qui permettent ainsi toutes les 
constructions. 


CONS NIL,Al + (A1. NIL) i.e. (ADD 


CONS AÏ,NIL est illégal 
XCONS NIL,A1 > (NIL . AD 
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3.4.5 Utilisation de la Pile 


KC geg 


Cette famille d’instructions permet d’utiliser la pile et le pointeur 
de pile SP, indépendamment de l’opérande TST. 


Les 2 instructions STRCK et SSTRCK permettent d'avoir accés en lecture 
et en écriture au registre pointeur de pile lui-même. 

L'instruction TOPST permet d'accéder au sommet de pile sans modifier 
la pile ni [е pointeur de pile, cette instruction est donc utilisée 
pour consultation non-destructive du sommet de la pile. 

Enfin l'instruction la plus puissante de manipulation de pile et 
XTOPST qui échange le sommet de Le pile avec l’opérande de 
l'instruction sans modifier le pointeur de pile (Note 1}. 


3.4.6 Utilisation du registre d'Index IX 


Ces instructions vont utiliser le registre d'index soit directement, 
soit pour calculer la véritable adresse de l'opérande (dans ce cas, la 
valeur du registre IX est ajoutée à l’opérande, cette somme produisant 
L'adresse de l'opérande à utiliser). 


IX «d» 
«s» 


IX 
<s> «d» [IX] 
<s> [IX] <d> 


E 


{Note 1} une version affaiblie de cette instruction existe même dans 
Je micro-processeur 8080 [INTEL 77a] dont l'instruction XTHi réalise 
l'échange du sommet de la pile et du registre HL. Cette instruction 
de 18 cycles n'est codée que sur 1 octet! 
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3.4.7 Les instructions de contrôle 


Les insiructtong СЕ — >>= 


Ces irtructions sont très peu nombreuses du fait de l’utilisation du 
champ ` continuation des instructions. Seules 2 instructions 
d'aiguiliage ont été introduites : 


DISPT si (LITATOM <d>) <s> 10] 
si (NUMBP <d>) <s> [1] 
si (LISTP <d>) .<s> [2] 


жаса” 
79 
O 


D 
CH 
@ Qo Qo Qo 


L'instruction  JUMPX réalise un aiguillage ач travers une tabie 
d'étiquettes dont l'adresse est donnée en opérande source. L' indice 
dans cette teble est L’opérande destination (qui bien qu'en position 
destination est considéré par VCMC2 comme un opérande source). 


L'instruction DISPT réalise également un aiguillage. L'indice de La 
table d'étiquettes est fourni par le type ce L’opérande destination. 
Cette instruction permet de réaliser un test de type en un temps 
indépendant du nombre de types. 


Les types suivants sont disponibles : 


0 
2 


type symbole atomique 
type nombre 
type liste 


к 


2.4.8 Les tests de type 


Ces instructions permettent de tester explicitement Le type d'un 
pointeur (symbole atomique, nombre ou Liste). Elles ne possèdent 
qu'un opérance, et seul le code condition est affecté par ces 
instructions. 


(LITATOM <s>) 
CC= (NOT (CITATOM <s>) ) 
Ce (NUMBP <s>) 
CC= (NOT (NUMPB <s>)) 
СС» (LISTP <s>) 
(NOT (LISTP «s»)) 


N.B. : tes préfixes T et F indiquent respectivement vrai (D ou feux 


hip: | A 
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3.6.9 Les tests d'égalité de pointeurs 


Ces deux instructions testent l'égalité ou 1° inégalité de 2 pointeurs. 
Deux pointeurs sont dits égaux, s'ils possèdent la même adresse et le 
même type, donc s'ils pointent sur le méme objet physique. 


EQ | СС- (<s> = <d>) 
NEG CC= (<s> # <d>) 


Ces instructions correspondent aux prédicats VLISP| EQ et NEG. 


3.4.10 Les comparaisons arithmétiques 


Elles sont utilisées pour comparer les valeurs des nombres et 
positionnent le code-condition. 


<s> <d>) 
<s> <d>) 
<s> <d>) 
<s> <d>) 


(LE 
<d> - «s» (ZEROP «d») 
«d» - «s» (NOT (ZERCP <d>)) 


Les 2 dernières instructions SUBTZ еї SUBFZ sont utilisées pour 
réaliser commodément des boucles. 


3.4.11 Les instructions spéciales 


11 existe quelques instructions qui n’ont pas d'effet sur le contenu 
des registres ou des mémoires. Ces intructions réalisent des effets 
de bord divers et positionnent toujours le code-condition à T. 


NOP 
STOP 


PRSTRCK «s» 
PRSTRT 


NOP ne fait rien, mais permet de décoder le champ continuation. 


STOP arréte la machine VCMC2. 
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PRINSTACK imprime le contenu des <s> derniers mots de la pile. Cette 
instruction permet de connaître l’état de la pile dynamiquement et 
réalise des contrôles dynamiques. 


PRSTAT imprime Le nombre d'instructions exécutées, le nombre de CONS 
réalisés et La taille maximum de la pile depuis le dernier PRSTAT. 
Cette instruction permet d'obtenir des statistiques incrémentales. 


3.4.12 Les instructions d'entrée/sortie 

IL existe 2 familles d'instructions. Les instructions d'entrée/sortie 
complexes, qui travaillent au niveau des expressions MIS? elles-mêmes 
et sont utilisées dans l'interprète, et les instructions de très bas 
niveau, manipulant des caractères, utilisées dans L'écriture des 
modules d’entrée/sortie. Ces dernières instructions seront vues dans 
Les chapitres D pour Les instructions d'entrée et 6 pour Les 
instructions de sortie. 


Voici Les instructions d'entrée/sortie complexes : 


entrée > «d»  CC- 
PRINI «s» э sortie СС= 
TERPRI saut de ligne CC= 


11 


READ Lit une expression УШ ЕЁ et charge sa valeur dans l’opérande «d» 
PRINI imprime la valeur de L'opérande <s> 


TERPRI provoque un saut de Ligne en sortie. 
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3.5 LES FSEUDO- INSTRUCTIONS 


т 
kg E A A . 


3.5.1 Les MACRO 


En plus de ces instructions de base, VCMC2 permet d’utiliser des MACRO 
ce qui facilite l'écriture et la lecture des programmes. 


It existe 4 MACRO standards : 


PUSH «s» équivalent à <s>, TST 
POP <d> équivalent à МОЧЕ TST,<d> 
TNIL «s» équivalent à EQ <s>, NIL 
FNIL <s> équivalent à NEQ <s>, NIL 


Les MACRO PUSH et POP permettent de manipuler la pile et sont les 
versions modernes des instructions BURRY et UNBURRY de la 2ème machine 
de TURING [CARPENTER 761. 


3.5.2 Les pseudo-instructions de test 


La machine VCMC2 comporte des outils qui permettent de tester son 
propre fonctionnement. En particulier, il est possible : 

- de tracer dynamiquement les instructions exécutées 

- de tracer dynamiquement Les contenus des registres 

- de tracer dynamiquement le contenu de la pile 

- d'exécuter un programme VCMC2 de maniére incrémentale et d'appeler 
l'interprète VLISP, avant chaque exécution d'instruction. 


Ces outils sont décrits au paragraphe suivant. Le positionnement du 
mode trace et du mode  pas-à-pas s'effectue grâce aux 
pseudo-instructions suivantes qui ne modifient pas le contenu des 
mémoires ou des registres. 


positionne le mode trace 
enlève Le mode trace ` 


STEP positionne le mode pas-à-pa 
enléve Le mode pas-a-pas 

SILENCE sauve l'état courant des modes 
et passe en mode non-trace 

REUIUE repasse dans les modes sauvés 


par le dernier SILENCE 
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A NENNEN NEM LL C 


3.5.3 Les pseudo-instructions de réservation de mémoire 

. š š , . H : 1%. 
Il existe deux pseudo-instructions de réservation de memoire, i une ne 
réserve qu'un seul mot, et l’autre un bloc de mots contigus. 


DATA — objet-WLISP ou ( adresse-mémoire ) , . 
BLOCK nombre , objet-NLISP ou ( adresse-memoi:re ) 


La première réserve un mot mémoire qui est initialisé avec un pointeur 
sur un objet MISE ou bien une adresse mémoire du programme. La 
seconde réserve un bloc de mots contigus dont la taille est spécifiée 
en position premier opérande, chaque mot doit étre initialisé avec le 
pointeur fourni en position deuxiéme opérande. 


3.5.4 Les pseudo-instructions de déclaration 


COMMENT 
ENTRY ` «nom»,«F-TYPE», «P- TYPE» 


COMMENT est une déclaration de commentaires et Le reste de 
l'instruction est complétement ignoré. 


ENTRY est une déclaration de point d'entrée de fonction standard. 
«nom» est le nom de la fonction. Ce nom doit être une étiquette du 
programme. <F-TYPE> est le F-TYPE de la fonction qui est donné en 
clair (i.e. OSUBR 1SUBR 2SUBR 3SUBR NSUBR ou FSUBR). <P-TYPE> est Le 
P-TYPE de La fonction i.e. un chiffre codé permettant ce contrôler 
l'édition future de cette fonction. IL est décrit au chapitre 6 
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3.6 UTILISATION DE LA MACHINE UCHC2. 


Pour illustrer l’utilisation de la machine VCMC2, nous allons étudier 
la transcription de la fonction SUBST en langage machine VCMC2. 


Cette fonction est définie en MIS de la manière suivante : 


(DE SUBST (x y z) 
CIF CRTOM z) 
CIF (ER z у) х 2) 


(CONS (SUBST x у (CAR 2)) 
(SUBST x y (CDR z))))) 


C'est une fonction récursive à 3 arguments qui substitue x à toutes 
tes occurrences de y dans la Liste z. 


ENTRY  SUBST, SSUBR 


SUBST: TLIST  A3,, [JUMP (SUBST1)1 
EG АЗ, А2, [RETURN] 
М З, А1, [RETURN] 
508571: Б a1 


83, TST 
83; A3; [CALL (SUBST) 1 


A1,,[CALL (SUBST)] 
TST, ei, [RETURN] 


Cette fonction occupe 12 mots VCMC2 (qui possèdent en général 16 bits) 
(Note 1). Voici la description des instructions : 


{1} déclare la fonction SUBST comme SUPR à 3 arguments. Cette 
pseudo-instruction correspond à la déclaration MIb [1]. А 
l’entrée de la fonction Al contient la valeur du ler argument x, 
A2 celle de y et A3 celle de z. 


(Note 1} ce chiffre est à comparer avec celui obtenu pour traduire la 
même fonction dans la machine de Peter DEUTSCH [DEUTSCH 73], qui 
demandait 37 mots de 8 bits. 
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RCE A PA тенден 


{3} 


{4} 


{5} 


{6} 


{7} 


{8} 
{9} 


{10} 


= 


traduction du test MSP 121. La clause sinon se trouve en 


808571: . ° 


test [3], la clause alors ne nécessite aucun travail car x se 
trouve encore dans A1 et un [RETURN] peut être utilisé. 


clause sinon du 2ème test (i.e. z). La valeur retournée par (а 
fonction devant être dans А1, il faut transférer АЗ (i.e. z) 
dans A1 puis réaliser le retour de la fonction. 


clause sinon du ler test (i.e. CONS ...). Sauvegarde de А1, qui 
va étre détruit par l'appel récursif de la fonction. 


sauvegarde du CDR de A3 (i.e. de z) dans la pile. Cette valeur 
sera utilisée en 2ème argument du CONS. 


ler appel récursif de La fonction SUBST. А1 contient x, А2 
contient y et АЗ contient (CAR z). А1 et Le CDR de АЗ ont été 
sauvés dans la pile. Au retour de cet appel, A2 et AS seront 
inchangés et A1 contiendra la valeur de l'appel. 


restauration de A3 prêt à être utilisé au 2ème appel récursif. 


échange du sommet de pile (i.e. l'ancien А1) avec la valeur du 
premier appel récursif et 2ène appel récursif de SUBST. 


calcul de la valeur de SUBST par construction d'un doublet dont 
іе CAR est la valeur du ler appel récursif (sauvé dans la pile) 
et de CDR (а valeur du 2ème appel récursif. Le doublet crée est 
retourné dans A1 comme valeur de la fonction. 
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3.7 OUTILS D'ANALYSE ET DE MISE RU POINT. 


A eng 


Le simulateur de la machine VCMC2 comporte des outils d'analyse et de 
mise au point des programmes écrits en VCMC2. 


3.7.1 Les outils d'analyse 


Les outils d'analyse permettent d'étudier le comportement du programme 
simulé à la fois statiquement et dynamiquement. 


L'analyse statique porte sur l'étude du code lui-méme de LU interprète 
МП Р écrit en VCMC2 ainsi que des modules d'entrée/sortie (i.e. le 
code fourni aux appendices C, E et F). Cette analyse permet de 
réaliser les références croisées (voir les appendices) ainsi que 
différents comptages tels que : 

- le nombre et le type des fonctions définies 

- les occurrences des types d'instructions 

- Les occurrences des types des continuations des instructions 

- les occurrences des types des opérandes des instructions 


L'analyse dynamique porte sur l'étude des instructions effectivement 
simulées. Cette analyse fournit le méme type de tableaux que 
l'analyse statique augmentée des informations suivantes : 

- nombre de CONS effectués 

- taille maximum de la pile 

- temps de simulation d'une instruction 


Tous les tableaux d'analyse de ce chapitre ont été réalisés par Le 
simulateur en mode statique ou en mode dynamique selon le cas. 


Voici Les fréquences d'apparition des instructions, en étudiant 
statiquement le. code de l'interprète et des fonctions 
d'entrées/sorties (i.e. du code des appendices C, E, et F). 


Occurrences statiques des instruct ions 


Nombre d'instructions : 1320 

1 ADD = 20 1.52 % 0 Z 
2 CAR = 98 7.42 % 0 ГА 
3 CDR = 124 9.39 $ D % 
4 CONS = 27 2.05 % 0 % 
5 CURL. = 11 0.83 % D Ф 
6 DISPT = 2 0.15 % с 2 
? DIU = 1 D % 0 % 
8 EQ = 70 5.3 % D % 
g FRTOM = 3 0.23 % 0 2 
10  FLIST = 28 2.12 % 81 2 
41 FNUMB ze 0.15 % 9 2 
19 ЕТҮР = 6 0.45 % 81 % 
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13 ҒА. = 6 0.45 2 D % 
14 СЕ = 2 0.53 % H га 
15 DT = d 0.53 % 0 % 
16 IN - 1 0 2? О © 
17 INTERN = 3 0.83 % 0 Ф 
18  JUMPX = 10 0.76 % D © 
19 LE = 5 0.38 2 D % 
29 LOGAND = 1 0 2? O % 
21 LOGOR = 1 D 2 0 To 
22 LOGXOR = 2 0.15 % 0 % 
23 LT = 6 0.45 % D % 
24 MOV - 425 35.988 % 0 1 
25 MDUEX z 11 0.83 % H © 
26 MUL = 1 0 2? Ü Ta 
27 NEG = 41 3.11 9? 0 % 
28 МОР - 85 6.44 % D G 
29 OUT = 3 0.23 % D % 
30 PLEN = 3 0.83 % D е 
31 PLIST = d 0.23 % 0 га 
32 РМАМ = З 0.23 * 01 [4 
33  PRINI z 14 1.06 2 0 % 
34  PRSTRCK = З 0.23 % H 1b 
35  PTYP = 2 0.15 % 0 % 
3B READ = 2 0.15 % 0 ë 
37 REM = 1 D % H % 
38 SCAR = 8 0.61 % 0 ë 
39 SCDR = 21 1.59 % 0 % 
40 50/8. = 14 1.06 % H % 
41  SFTYP = 5 0.38 % D % 
4e SFURL = 5 0.38 % 0 K 
43. SINDEX = 1e 0.91 2 0 % 
44 SPLIST =2 0.15 % D % 
45  SPTYP - 1 0 % Ü % 
46 55ТАСК = 16 1.21 % 0 K 
47  STACK = 14 1.06 % D ë 
48 STOP = 2 0.15 % H % 
49 SUB = 16 1.21 % (0 % 
50 SUBFZ = 1 0 v 0 % 
51 TATO = 1 0 v H % 
52  TERPAI -1 9 % H % 
53  TLIS = 31 2.35 % 0 % 
54  TNUMB = 5 0.38 9 D % 
55 ТОР5Т - 182 6.91 % H % 
ББ  XCONS = 27 2.05 * D 1 
57 ХМОМЕ = Б 0.38 % 0 % 
БВ  xTOPST = 20 1.52 % D S 
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Voici les fréquence d'apparition des instructions dynamiquement 
observées aprés exécution du test donné en appendice б. 


Occurrences dynamiques des instructions 


Nb d'instructions exécutées : 80202 


«Qo NO UO 5onm- 


EE 
D D `< = 
ғә 
` 


— 
“1-а 
œ 


w ` 
ro 
cOOOOOOOOOOOOO000O0000000000000000000000 


000-9000-000-0000070 


ro 
tO 
` 


wt qn 28 o os 5 HOM MH N " 


XTOPST 
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3.7.2 Les outils de mise au point 


Les outils de mise au point de la machine VCMC2 se composent d’une 
trace et d'une exécution incrémentale (pas-à-pas). 


La trace permet d'obtenir avant chaque exécution d'instruction 
L'impression : 
- de l'instruction elle-même 
- du contenu des registres et de la pile 
| Voici un extrait de la trace de l'évaluation de l'expression : 


(SUBST 'X "В '(ñ B ñ CD 


en utilisant la fonction décrite dans la section précédente. Seuls 
les registres modifiés sont imprimés par la trace : 


A1, 81 
A1 s С QUOTE X ) 
NIL, (6 EURLST), [JUMP СЕЧАТ) 1 


A1, (6 FORME) 
A1, NIL, [JUMP (EURLF) 3 


FRTOM A2, NIL, [JUMP (EURLS)3 
РОА. A2, TST 
fe, R3 
= 6 
(TEURL) , ЯЗ 


NIL, NIL, [RETURN] 
A1, 1, LRETURNJ 
AI = X 
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L'option pas-à-pas permet, avant toute exécution d'instruction, de se 
retrouver dans un TOPLEVEL de MOIS, ce qui permet de consulter 
n'importe quel registre ou mémoire, de faire évaluer n'importe quelle 
expression ou de faire exécuter n'importe quelle instruction VCMC2 


(Note 1]. 


Voici un exemple d'exécution  incrémentale de l’interprète durant 
L'évaluation de l'expression vue précédemment. Avant chaque 
instruction, (а machine УСМС2 impr ime Le caractère 1. Si 
L'utilisateur frappe un espace, l'instruction est exécutée normalement 
sinon VCMC2 évalue une expression М.Р! quelconque. Cette évaluation 
donne accès à tout l'interprète et permet d'accéder à toutes Les 
variables du simulateur. i 


NIL, [JUMP (SUBST1)] 
TST 

TST 

ӨЗ, [CALL (SUBST)] 


A3, NIL, [JUMP (SUBST1)] 
HS A2, [RETURN] 


T, A3 
A1, NIL, [CALL (SUBST)] 


(Note 1j la possibilité d'avoir accès à un langage de très haut niveau 
(en l'occurrence l'interprète MISE lui-même) donne une puissance 
inégalée à cette méthode de mise au point dont les possibilités 
dépassent largement celles du trés célébre DDT de DEC [DEC 75c]. Voir 
à ce sujet les remarques de M. Model sur la mise au point interactive 
dans un environnement complexe [MODEL 79]. 
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Page 84 
SUBST 
ЯЗ, NIL, [JUMP (SUBST1)1 

SUBST1 

MOU A1, TST 

CDR A3, TST 

CAR АЗ, АЗ, [CALL (SUBST)] 
SUBS 


T: 
FATOM A3, NIL, [JUMP CSUBST1)] 
A3, f2, [RETURN] 


EQ 


TST, A3 
ei, NIL, :24 '8J88T)1 


AS, NIL, "Ae (5М567121 


A1, TST 
R3, TST | 
R3, R3, [CA (SJBST)1 
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3.8 LES INCARNATIONS DE LA MACHINE UCMC2. 


La machine référentielle VCMC2 peut recevoir plusieurs incarnations 
possibles parmi lesquelles nous verrons : 

- la simulation symbolique 

- l'interprétation binaire 

- la compilation ou Lla macro-génération. 


La simulation symbolique consiste à interpréter directement le code 
symbolique des programmes écrits en VCMC2. Cet interpréteur n'est 


réalisable que dans un Langage permettant les manipulations 
symboliques. VLISP s'y prête très évidemment. Ainsi MIS 10 a été 


utilisé pour écrire le simulateur symbolique donné à  l'appendice B. 
L'utilisation de MISP nous a permis d'obtenir un simulateur trés court 
(1000 Lignes environ) trés rapidement mis en oeuvre (il ne nécessite 
en effet aucune traduction préalable du code symbolique) et nous y 
avons inclus des outils de mise au point dynamiques et symboliques. 
En revanche ce simulateur n'est pas trés rapide (de l'ordre de 5 
milli-secondes pour simuler une instruction avec le maximum de tests) 
et demande une grande place en mémoire (6k doublets pour le simulateur 
de l'appendice B et 8k doublets pour stocker l'interprète sous sa 
forme symbolique donné à l'appendice F). 


Pour diminuer l’espace occupé par les programmes écrits en VCMC2, il 
est possible d'écrire un assembleur VCMC2 traduisant les programmes 
écrits en VCMC2 sous ia forme la plus compacte, [а forme binaire. 


Toutefois ce nouveau code devra âtre interprété par un interpréteur 
binaire spécialisé. 


Enfin pour diminuer le temps de simulation, nous avons réalisé un 
traducteur permettant de macro-générer (voire de compiler) Les 
programmes écrits en VCMC2 dans d'autres machines (PDP10, PDP11,  Z80, 
T1690). Cette macro-génération peut être également réalisée soit à 
partir de macro-générateurs universels tels le GPM de STRACHEY 
[STRACHEY 65] ou te STAGE 2 de [POOLE 79, WAITE 731. 
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—— c r rr c n арааран 


CHAPITRE 4 


L'EURLURTEUR ПЕ BASE 


Le but de ce chapitre est de fournir la description compléte de 
L’ implémentation de notre interprète MIS de base. Nous appelerons 
évaluateur de base, un évaluateur ne permettant d'évaluer que des 
formes atomiques (de type symbole atomique ou nombre) ou bien des 
appels de fonctions (de type SUBR, FSUBR, EXPR, FEXPR ou MACRO). 


It existe en М9 plusieurs types de fonctions. 
Le pluralité des types est déterminée par : 


1) te Langage d'écriture de la fonction. 

Nous distinguerons deux langages d'écriture : 

- le Langage VCMC2. Ces fonctions, appelées Les SUBR, sont 
résidentes dens Le système dès sa mise en route. L'utilisation 
du langage machine leur confère une vitesse d'exécution maximum. 
Ces fonctions, qui sont également appelées fonctions standards, 
sont écrites en langage machine parcequ’ il n’est pas possible de 
Les écrire en MUSEP (comme per exemple Les primitives CAR ou CONS) 
ou bien parcequ’elles sont très fréquemment utilisées. 

- WEP pour la plupart des fonctions définies par l'utilisateur. 


2 


x 


Le type d'évaluation des arguments : 

les erguments peuvent être évalués ou non à l'entrée de Le 
fonction. En règle générale, tous les arguments d'une fonction 
sont évalués. Toutefois pour certaines fonctions aucun ergument 
n'est évalué ce qui permet de construire des fonctions de contr$ie 
ou des fonctions conditionnelles. Раг exemple pour la fonction 
conditionnelle IF, les arguments ne sont pas évalués à l'entrée de 
la fonction mais ils Le sont sélectivement à l’intérieur de cette 
fonction. | 
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3) le nombre d'arguments. 
Le nombre des arguments des SUBR est connu à l'avance : ce nombre 
peut étre : 
- fixe 
dans le cas des GUDD qui évaluent leurs arguments оп 
distingue les fonctions : 
- sans argument 
- à 1 argument 
- à 2 arguments 
- à 3 arguments | 
Nous eppelerons respectivement ces fonctions OSUBR,  1SUBR, 
2SUBR et SSUBR 
~ variable. ces SUBR s’appellent des NSUBR. 
dans le cas des SUBR qui n'évaluent pas leurs arguments, ils sont 
en nombre indéfini et ces fonctions se nomment des FSUBR. 


Les fonctions écrites en ont un nombre d'arguments variable. 
Si les arguments sont évalués, ces fonctions sont appelées des EXPR 
et s'ils ne le sont pas, elles sont appelées des FEXPR ou des MACRO 
en fonction du type de traitement désiré : Les MACRO étant 
évaluées deux fois pour permettre un traitement préalable de 
L'appel de la fonction. 


Notre modàle de base connatt donc 9 types de fonctions, qui sont : 


les OSUBR : SUBR à O argument 

les 1SUBR : SUBR à 1 argument évalué. 

les eSUBR : SUBR à 2 arguments évalués 
: SUBR à 3 arguments évalués 


: SUBR à N arguments évalués 

: SUBR à N arguments non-évalués 

: qui possèdent N arguments évalués 

: qui possèdent N arguments non-évalués 
(ез MACRO : qui possèdent N arguments non-évalués 
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4.1 COMMENT CRRRCTERISER UNE FONCTION ? LE COUPLE F-TYPE F-VAL. 


En MI, une fonction est caractérisée par un couple composé du type 
de la fonction tel qu’il vient d’être vu et de la valeur de définition 
de la fonction. 


Le type d'une fonction est représenté par un nombre (Note 1] que nous 
appelerons le F-TYPE d’une fonction. Voici les codes des F-TYPES de 
notre modèle de base : | | 


Code des F-types 
type de la fonction F-type 


4 


о оочооьот 


ce n’est pas une fonction 


Un F-TYPE égal à O signifie que l’on n'a pas affaire à une fonction. 
. En plus d'un type chaque fonction posséde une valeur de définition : 


la F-UAL. Dans te cas des SUBR, cette F-VAL est l'adresse en mémoire 
du sous-programme écrit en VCMC2 réalisant ia fonction. 


adresse mémoire 


eege 


{Note 1} notre modèle utilise un nombre pour pouvoir effectuer 
rapidement des aiguillages sur се type au moyen de branchements 
indirects indexés. 

Cet aiguillage est réalisé par l'instruction UCHC2 :  JUMPX. 
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Dans le cas des EXPR, des FEXPR et des MACRO, cette F-UAL est une 
Liste de la forme : 


( <svar> <e1> ... <eN> ) 


CEXPR/FEXPR/MACRO) 


Le premier argument de cette Liste <svar> est la spécification des 
variables de la fonction. | . 

Les éléments suivants de cette Liste <e1> ... <eN> sont [ез 
différentes expressions du corps de la fonction, qui seront évaluées 
en séquence lors de l'évaluation de la fonction. 
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eene 


4,2 COMMENT DECRIRE ET INVOQUER LES FONCTIONS ? 


PAA U EAE RE АН... ES 


Le couple F-TYPE, F-UAL peut être utilisé directement (au moyen d’une 
forme INTERNAL) pour décrire une fonction, il s’agit dans ce cas de 
fonction anonyme ou bien il peut être associé à un atome, nous 
parlerons dans ce cas de fonction nommée. 


Le nouvelle forme INTERNAL va nous permettre de décrire une fonction 
anonymement sans l’associer à un atome particulier {Note 1}. 


CINTERNAL F-TYPE F-UAL) 


est la représentation d'une fonction anonyme dont on spécifie à Le 
fois son F-TYPE et sa F-VAL. 


Par exemple : 
(INTERNAL 2 10000) 


est la représentation d'une SUBR à 2 arguments évalués. Le 
sous-programme traitant la fonction se trouve à l'adresse 10000. 


(INTERNAL 7 CCI J) (PRINT I J) (+ I J))) 


est la représentation d’une EXPR à 2 arguments évalués. La liste des 
variables de la fonction est (1 J) et le corps de La fonction est 
(PRINT Ï J) G I J) 


Il existe, dans le cas des EXPR, une autre forme de description, La 
forme LAMBDA, que nous avons gardé dans un souci d’historicité et de 
compatibilité avec les autres interprètes МР. 


À 


(Note 1} le modèle MIF. est le seul interprète LISP n'obligeant pas à 
nommer les fonctions de type SUBR ou FEXPR. 
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la forme : 
( LAMBDA <svar> <e1> ... <eN> ) 


correspond strictement à : 


( INTERNAL 7 (<вуаг> <81> ... <eN> )) 


Le couple F-TYPE F-VAL, peut être associé à un atome. Cette 
association est réalisée à l'initialisation de l'interprète dans Le 
cas des fonctions standards, ou bien au moyen des fonctions de 
définition pour les fonctions de l’utilisateur. 


Un appel de fonction se réalise par l'évaluation d'une liste de Le 
forme : 


( «fnt» «a1» ... <aN>> ) 


dans laquelle «fnt» est soit une fonction anonyme de type INTERNAL ou 
LAMBDA, soit un symbole atomique auquel est associé une fonction, 
«a1» ... <eN> est la Liste des arguments de l'appel de la fonction. 
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Enfin possède une dernière forme pour invoquer Les fonctions, la 
forme LET, si la fonction est une fonction anonyme de type LAMBDA dont 
(а spécification des variables <svar> est une Liste de variables 
<v1> ... <УМ>. 

Cette forme, qui est une MACRO standard LISA (Note 1}, permet de 
simplifier l'écriture et la lecture d’un appel de fonction de type 
LAMBDA en accolant Les couples variable-valeur. 


t’ invocat ion : 


(LET ((<v1> <a1>) ... («vN» <aN>)) <e1> ... <eN>) 


est automatiquement transformée en : 


CCLAMBDA (<v1> ... <vN>) <e1> ... <eN>) <a1> ... <aN>) 


VV 


[Note 1} Voici la définition en de cette MACRO : 


(DM LET (l) 
(RPLRCB L 
(COND | 
(NULL. (CAOR 19) 
(CONS (CONS LAMBDA (CONS (O (СООН (29299) 
CCATOM CCRADR 0) 
(CONS (MCONS LAMBDA (CONS (CññDR 0) (СОН L)) 
ССОАОА 02) 
(T (CONS CMCONS LAMBDA (MRPCRR (CADR 1) 'CRR) (CDDR 19) 
СМАРСАЯ (CADR 1) ’CRDR))))))) 
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4.3 LA LIAISON DES ARGUMENTS. 


A chacun des types de fonctions vues précédemment, est associé un type 
spécifique de Liaison des arguments. Cette Liaison va assigner dans 
Le machine un emplacement à ces arguments. 


Dans le cas des SUBR, les arguments sont liés à des registres de [а 


machine VCMC2 et dans le cas des EXPR des FEXPR ou des MACRO, Lee 
arguments sont liés aux variables de la fonction. 


4.3.1 La liaison des SUBR 


La présence des registres dans la machine VCMC2 nous permet d'utiliser 
eu mieux Les possibilités matérielles de la machine en minimisant Le 
temps d'accés aux arguments et l'occupation mémoire des instructions 
manipulant ces arguments. | 


Le nombre d'arguments d'une fonction n'étent pas Limité, les quatre 
registres de la machine se révèlent insuffisants pour stocker tous les 
arguments. Toutefois le nombre des arguments des SUBR standards est 
en général peu élevé (0, 1, 2 ou 3 arguments). Voici les occurrences 
des SUBR standards de notre modéle : 


Üccurrences statiques des SUBR 
Nombre de fonctions  SUBR 


10 
54 


1SUBR 
eSUBR 
SSUBR 


Ce tableau nous montre clairement quels types de SUBR doivent être 
priviligiés : Les 1SUBR, 2SUBR et FSUBR qui représentent près de 90% 


des fonctions. 
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IL va donc ëtre possible d'utiliser au mieux les quatre registres de 
la machine, dans Le cas des SUBR, de la manière suivante : 


E-type Contenus des registres 


COSUBR) n'y a pas d'argument, aucun registre 
contient de valeur utilisable. 


(1SUBR) | valeur ler argument 


CeSUBR) valeur ler argument 
valeur 2ème argument 


(SSUBR) valeur ler argument 
valeur 2ème argument 
valeur 3ème argument 


(NSUBR) Liste des valeurs de tous les 
arguments 


(FSUBR) la Liste des arguments non-évalués 


Toutes les fonctions de type SUBR retournent leur valeur également 
dans le registre Al, ce qui nous permet de ne faire aucune 
manipulation de registre entre les appels imbriqués de fonctions de 
type OSUBR, 1SUBR, FSUBR ou NSUBR (près de 70% des SUBR) car la valeur 
de la fonction calculée qui se trouve dans Al devient l'argument de la 
fonction suivante qui une fois calculée devient l'argument de la 
fonction suivante ...etc... Cette allocation de registre est optimale 
(du point de vue manipulation de registres) et permet d'utiliser le 
registre A1 comme registre pipe-line pour les SUBR : 


La composition : 
(FREVERSE (EVLIS (READ) )) 


est équivalente à cette suite d'appels de sous-programmes : 
NOP , | [CALL CREADO 1 


NOP , | [CALL (EVLIS)] 
МОР. |, | [CALL (FREVERSED 1 


qui ne nécessite aucune manipulation de registre entre Les 
sous-programmes. 


Ce type de liaison se révèle donc très efficient mais reste Limité aux 
fonctions standards SUBR qui doivent être écrites en langage machine. 
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4.8.2 La Liaison des EXPR/FEXPR/MACRO 

Dans les fonctions de type EXPR, FEXPR et MACRO, les arguments vont 
être liés aux variables de la fonction. Ces variables sont décrites 
dans la spécification de variables <svar> qui est Le premier élément 
de la description de la fonction. Les arguments «a1» ...<aN> sont 
rassemblés dans une liste qui est le CDR de l'appel de Le fonction. 
Ces arguments sont évalués pour les fonctions de type EXPR mais pas 
pour les FEXPR ni Les MACRO. 


fonction : (€ <svar> <81> 


invocation : ( <fonc> «a1» 


Dans le cas des fonctions de type EXPR, quatre cas peuvent se 
présenter : 


1) la spécification de variables <svar> est nulle. En ce cas aucun 
argument n'est évalué, aucune liaison n'est réalisée et le corps de 
La fonction peut étre exécuté directement. 


fonct ion : <€ O «g1» ... <eN> ) 
invocation : (С <fonc> ) 


liaison : aucune 
exécut ion :  (PROGN <e1> ... «eN» ) 


2) la spécification de variables <svar> est une Liste de variables. 
En ce cas, Les variables de cette liste sont Liées une à une aux 
différents arguments évalués avant la réalisation des liaisons. 


fonction ( ( <v1> ... <vN> ) <81> ... <eN> ) 
invocat ion ( <fonc> «81» ... <aN> ) 


Liaisons <у1> + (EURL <а1>) ... «vN» + (EVAL <aN>) 
exécution e (PPOGM <87> ... <elb) 


Toutes les évaluations des arguments doivent s’opérer AVANT Les 
Liaisons proprement dites. 
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En effet : 
(LET (x 2) 


(LET ((x (PLUS x 12) (y (PLUS x х))) 
(PLUS x y)» 


p 7 
La Liaison séquentielle de x puis de y aurait Livrée ` 
p 9 
Enfin, si Le nombre d'arguments fourni à l'appel est plus grand que 
Le nombre de variables de <svar?, ils sont ignorés SANS ETRE 
EVALUES. Si Le nombre d'arguments est inférieur au nombre des 
variables, les variables restantes sont liées à la valeur NIL. 


CO (x y z) ...) 10) 


ve réaliser les liaisons : 


x < 10 
y < NIL 
2 е NIL 


3) la spécification de variables <svar> contient une variable simple. 
En ce cas c'est la iiste de toutes les valeurs des arguments qui 
est liée à cette unique variabie. 


fonction : (<> «gi» ... <eN> ) 
invocation : ( <fonc> «a1» ... <eN> 
1 


3 
Liaison : «y» < I <a1> ... <ай> {Note 1} 


exécut ion : (PROGN <е1> ... <eN>} 


4) il existe en outre en WLISP| un quatrième type de spécification de 
variables qui regroupe Les 2 cas vus précédemment, et qui est 
représenté par une liste pointée de variables. En ce cas Les 
premiéres variables sont liées une à une avec les valeurs des 
arguments correspondants, et la dernière variable, qui se trouve en 


eg 


{Note 1) la notation NLIS І <е1> ... <eN> 2 correspond а la 
description d'une liste évaluée (voir 1e paragraphe 5.2). 
t <81> ... <eN> 1 est équivalent à (LIST <81> ... <eN>) 
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position dernier CDR de la spécification des variables, est liée 
avec une liste regroupant toutes les valeurs du reste des 
arguments. 


fonction : C (<у1>... «vN-1» . <vN> ) <81> ... <eN> ) 
invocation : С «fanc» <a1> ... <aN-1> <aN> <aN+1> ... «aM» ) 
liaisons : <v1> € (EVAL <а1>) ... «vN-1» + (EURL <аМ-1>) 


et <vN> < [ <aN+1> ... «aM» 1 
(РВООМ <81> ... <eN>) 


exécut ion 


Dans le cas des FEXPR, La spécification des variables <svar> doit être 
une Liste d'au moins une variable et c'est la liste des arguments 
elle-même, non évaluée, qui est liée à la première variable de Le 
Liste <svar>. Si cette liste possède d'autres variables, elles sont 
Liées à la valeur NIL et font ainsi office de variables locales. 


fonct ion s C€ (<v1 > ... <vN> ) 
invocation : С <fonc> <a1> . 


liaisons <v1> < ( <а1> Së 
«ve» € NIL А 
exécut ion (PROGN <е1> 


Ce type de fonction est souvent utilisé pour créer des fonctions de 
contrôle qui n'évaluent pas tous leurs arguments mais le font 
sélectivement. 
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Dans le cas des fonctions de type MACRO, seule La première 
est liée comme dans le cas des FEXPR. Toutefois c'est l'appel de La 
MACRO tout entier qui est lié à la premiére variable. 
variables de la Liste étant liées à la valeur NIL et faisant office 


également de variables locales. 


fonct ion : < (<v1> ... <vN> ) <81> 
invocation : С «fonc» <a1> ... <aN> ) 


lieisons e <v1> € С <fonc> «a» ... «aN» ) 
«v2» € NIL ... < € NIL 
exécut ion :  &(EURL (PROGN <61> ... «eN»)) 


guent des FEXPR 


Outre la Liaison, les fonctions de type MACRO se distin 


et des EXPR par la manière dont est évalué le corps. 
fonction de type MACRO est la valeur de la valeur de 


La valeur d'une 
l’évaluation du 


corps. 11 se produit donc un mécanisme de double évaluation ce qui 
permet dans un premier temps d'expanser La MACRO et dans un second 


temps de calculer sa valeur. 
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4.4 TRBLERU SYNOPTIQUE ПЕ L'EURLURTEUR DE BASE. 


АМБЕР DIN ó [d ыы L шу —a ana 


Nous allons à présent décrire Le fonctionnement interne de 
L'évaluateur de base, la fonction EVAL. Voici le tableau synoptique 
des différents modules de EURL : 


Objet à évaluer : ` Fréquence et nom du module : 
(Note 1} 


EURLRT 
EURLNB 
EURLIS 


Symbole atomique : une variable 
Nombre : une constante numérique 
Liste : retourne la valeur de 


L'application de la 
fonction aux arguments 


cette fonction peut-étre : 


un symbole atomique : 


type de la fonction : 


EURLFN 
EURLFS 


un nombre 


une liste qui est : 


une forme INTERNAL 
une forme LAMBDA 
une liste à évaluer 


EURLL 
EURL I 


eg 


{Note 1} ces fréquences ont été obtenues après analyse du test donné 
en appendice G. 
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4.5 ACCES AUX VARIABLES ET EVALUATION DES ATOMES. 


En MSP comme dans tous Les LISP Les variables des fonctions sont 
fluides : Les liaisons et les portées des variables sont dynamiques. 
A l'entrée d'une fonction les paramètres actuels (les valeurs des 
arguments) sont liés aux paramètres formels (les variables), et au 
sortir de La fonction Les variables doivent retrouver leurs anciennes 
valeurs. 


Plusieurs stratégies sont disponibles pour réaliser ce type de 
Liaisons. Les principaux problèmes à résoudre sont : 

- ta facilité de la fabrication de la Liaison 

- ta facilité de la destruction de la Liaison 

- la facilité d'accès aux variables Liées 

- l'occupation mémoire résultant de cette liaison 


4.5.1 Les liaisons par A-listes 


Les premières implantations (LISP 1.5 ІМсСАВТНҮ 621) utilisaient une 
A-liste ou Liste d’associations pour réaliser Les liaisons. Cette 
A=liste contenait l'ensemble de toutes les Liaisons des variables sous 
Le forme d'une Liste de type : 


A-liste = ((variable . valeur) ... (variable . valeur?) 


Lier une variable consistait à ajouter en téte de la A-liste une 
nouvelle association représentée par un doublet de liste comprenant le 
nom de la variable en partie CAR et sa nouvelle valeur en partie CDR. 


Délier une variable consistait à enlever де la A-liste le doublet de 
‘Liste correspondant. | 
L'accès à une variable liée se faisait раг consultation de la A-liste 
jusqu'à rencontre d'un doublet contenant en partie CAR Le nom de la 
varieble. La valeur de la variable était trouvée en partie CDR de ce 
même doublet. 


Les performances de ce modèle étaient bonnes du point de vue création 
et restitution des Liaisons, étaient moins bonnes du point de vue 
occupation mémoire qui nécessitait 2 doublets de Liste par Liaison 
(ces doublets étaient alloués dans l'espace liste ce qui augmentait Le 
nombre d'appels du récupérateur et ralentissait d'autant plus Le 
système) mais surtout les performances étaient catastrophiques du 
point de vue de l'accès aux valeurs des variables : en cas de 
récursion profonde, la A-liste devenait très longue et Les temps 
d'accès devenaient prohibitifs (l'accès à une variable globale au fond 
d'une récursion profonde était proportionnel à la profondeur de Le 
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récursion!) (Note 1}. 


En conséquence ces types d'interprétes distinguaient deux types de 
variables : 


- les variables de la A-liste affectables par liaison d'arguments de 
fonctions et par les fonctions d'affectation de type SET et SETQ 


- les variables globales (appelées SPECIAL) accessibles par leurs 
C-VAL par les fonctions de type CSET et CSETQ. 


Cette distinction permettait d'accélérer l'accès aux valeurs des 
variables globales qui s'effectuaient par consultation de La C-VAL. 


4.5.2 La liaison superficielle 


Dès 1966 [WHITE 78] Le modèle utilisant une A-liste fut abandonné au 
profit d'un mécanisme de sauvetage et de restauration utilisant une 
vraie pile. Dans ce modèle, appelé Liaison superficielle (shallow 
binding), l'accès aux variables s’opère toujours par consultation de 
ta C-UAL de la variable. Toutes les variables sont globales au sens 
de LISP 1.5. La Liaison superficielle se réalise de la facon 
suivante : 

1 - évaluation (ou non) des valeurs des arguments 

2 - sauvegarde dans la pile des anciennes C-UAL des variables de la 

fonction 

3 - modification des C-UAL des variables avec les arguments 
Puis au retour de (а fonction, les variables reprennent leurs 
enciennes valeurs sauvées dans la pile. 


Cette méthode est moins performante que la méthode précédente 
utilisant une A-liste, lorsqu'il s'agit de réaliser la Liaison 
proprement dite, car il faut sauver dans la pile les anciennes C-VAL 
des variables de Lla fonction. De méme la restauration en fin de la 
fonction nécessite un temps non négligeable. Toutefois le trés grand 
intérêt de cette méthode réside dans l'accés direct eux valeurs des 
variables qui est direct. La simple consultation de la C-UAL d'une 
varieble suffit. Cet accès prend un temps fixé d'avance quelquesoit 
Le profondeur de la récursion. L'autre avantage de cette méthode est 
de n'occuper que 2 mots (1 mot pour le nom de la variable et 1 mot 
pour son ancienne valeur) par liaison de variable dans l’espace pile, 
lequel n'a pas besoin d’être récupéré avec des procédés couteux comme 
le récupérateur de doublets de liste. 


Le gros défaut de cette méthode par rapport à la A-liste est de ne pas 
pouvoir traiter Les objets FUNARG complets tels qu'ils sont décrits 
dans [HEIZENBAUM 68, MOSES 70]. 


(Note 1) les essais d'accélération de l'accès avec ce type de liaison 
[BAKER 77a] ne résolvaient pas le problème d'occupation mémoire. 
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4.5.3 L'évaluation des atomes 


[CR Y C LU LE Ал. UE SE 


Notre modèle utilise la liaison superficielle pour lier les variables 


des fonctions. 
Voici Le début de la fonction interprète EVAL qui traite des atomes. 


Evaluation des atomes 


умло LES ———— — 


A1, (е FORME) 
(TÉURL1) , A1 


E 


(EURLNB 

K(EURL 15) 

A1,A1 

A1, ' UNDEF , [RETURN] 
erreur "variable indéfinie” Le 


nom de l’atome se trouve dans 
te mot FORME. 


EURLNB: 
NOP s s [RETURN] 


{1} EVAL: est l'étiquette du sous-programme qui évalue une forme 
quelconque se trouvant dans Al. Ce sous-programme retourne la 
valeur de l'expression également dans le registre Al. 


{2} Le premier travail d'EVAL est de sauver dans un mot mémoire de nom 
FORME La forme qui doit être évaluée. Cette sauvegarde va 
permettre de détruire Le contenu de Al sans perdre la trace de la 
forme à évaluer. 


{3} V instruction DISPT réalise le ler aiguillage Sur type d’objet de 
EVAL et permet de se brancher à l’un des 3 modules de EVAL : 
1) EVALAT qui évalue les symboles atomiques, 2) EVALNB qui évalue 
Les nombres, 3) EVALIS qui évalue des Listes. 


{4,5,6} contient la table d'aiguillage sur type de l'instruction 
précédente. | 


{7} arrivé à cette instruction, A1 contient donc une variable (un 
symbole atomique). Sa valeur est le contenu de sa C-VAL, qui est 
rengée dans Al, prête à être retournée comme valeur de EVAL. 
L'accès à la valeur пе nécessite qu’une instruction. 
L'utilisation d'une A-liste aurait nécessité іе sous-programme 
suivant : (le point d'entrée est ASSO: ) 
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A1 < l'atome, A2 < la A-liste 


85501: СЕН A2,A3 ; R3 € couple suivant 
CAR A3,A4 ; Rd < variable 
EQ A4,A1, [JUMP (65500231 ; trouvé 
СОН A2,A2 ; au suivant 


ASSO: TLIST A2, , [JUMP CASSO1)] 
f Uatome n'existe pas} 
85502: COR A3,A1 ; 81 < la valeur 


{8} ce retour ne pourra toutefois se faire que si la C-VAL de l’atome 
considéré possède une valeur définie. Tous les atomes possèdent à 
leur création une valeur indéfinie représentée par le symbole 
spécial UNDEF. Ce test permet de détecter toute tentative d'accés 
à une variable, qui n'est ni initialisée ni liée. Le nom de Le 
variable ne se trouve plus que dans le mot de sauvegarde FORME. 


{9} cette instruction traite des nombres. Les nombres en LISP n'étant 
pas évalués, EVAL retourne directement la valeur du nombre. 


Ce début de ta fonction EVAL montre bien la remarquable efficacité de 
la Liaison superficielle: А instructions VCMC2 suffisent pour 
évaluer un atome. 

Ces 4 instructions pourraient être aisément microprogrammées sur une 
autre machine tel le PDP11/40 [GRIGNETI 761 pour réaliser ainsi une 
nouvelle instruction machine, EVAL, qui évaluerait son opérande et 
provoquerait une interruption logicielle en cas d'accès à une variable 
indéfinie et en cas d'évaluation d'une fonction. Toutefois, La 
microprogrammation complète de LU interprète EVAL peut difficilement se 
réaliser actuellement pour des raisons de place dans le micro-code. 
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4.6 EVALUATION DES ñPPELS DE FONCTIONS. 


EVALUATION LES ES ш Uo T 


Lorsque La forme à évaluer est une liste, la fonction interprète EVAL 
suppose qu’il s’agit d’un appel de fonction. Le CAR de la forme 
contient La fonction et Le CDR Les arguments de cette fonction. 


11 existe une grande variété де fonctions, EVAL va devoir réaliser un 
grand nombre de tests. Toutefois l’utilisation conjugée du F-TYPE des 
symboles atomiques et des instructions machine VCMC2 JUMPX et DISPT va 
considérablement accélérer Les tests en autorisant l’utilisation 
d'aiguillages. 


Les fonctions (i.e. les CAR des formes) peuvent étre des symboles 
atomiques, des nombres ou des listes. 


4.6.1 Evaluation des fonctions atomiques 


Du fait de Leur très grande fréquence (plus de 90% des fonctions), le 
traitement de ces fonctions doit étre extrêmement rapide et ne pas 
consommer de ressources de type pile, ni de doublets de Liste dont la 
récupération est trés laborieuse. 

Voici La partie de EVAL (commune au traitement de toutes les 
fonctions) qui va réaliser un aiguillage contrólé par le type de la 
fonction. 


A1,A2 
A1,A1 
(TEURLE) , R2 
(ENGL En) 
CEVALFN) 
CEVALFS) 
16 EURLFR: 
17 FURL яг, Т5Т 
18 FTYP A2,A3 
19 EURL IN: | 
20 JUMPX  CTEURL3),R3 
21 TEURLS3: 
DATA erreur ; O : erreur ; 
23 DATA  (EUALO) ; 1 : SUBR à O argument ; 
DATA  (EUAL1) ; Р: SUBR à 1 argument ; 
DATA — (EUALE) ; 3 : SUR ё € arguments ; 
DATA  (EUAL3) ; 4 : SUBR à 3 arguments ; 
DATA ` K(EURLND ; Б: SUBR à N erguments ; 
DATA — (EURLF) ; B : FSUBR ; 
DATA С(ЕМЕХР) s 72: - 
DATA —(EUFEXD ; 8 : FEXPR ; 
DATA < ; 9 : MACRO ; 
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(10) EVALIS: est le nom de la partie d'EVAL qui traite des fonctions. 


(11) La premiére chose à faire est de séparer La fonction des 
arguments de l'appel. A2 contient la fonction. 


{12} A1 contient la Liste des arguments de l'appel. L'appel intégral 
a disparu, reste qu'il a été précédemment sauvé dans le mot 
mémoire FORME (voir /27). 


{13} EVALFU: est Le point d'entrée de EVAL pour lequel A2 contient la 
fonction et Al contient la liste des arguments. 


{14} ce premier aiguillage sur [е type de [а fonction permet 
d'exécuter un des trois modules suivants : 1) EVALFA qui traite 
des fonctions associées à un symbole atomique, 2) EVALFN qui 
traite des fonctions numériques, 3) EVALFS qui traite des 
fonctions spéciales. 


(15) table d'étiquettes de l’aiguiliage précédent. 


{17} la fonction étant associée à un symbole atomique, préparons [е 
lancement de l'évaluation de sa valeur de définition (sa F-"AL), 
Celle-ci est empilée et va permettre le lancement des fonctions 
de type SUBR en exécutant une continuation RETURN]. 


{18} puis le F-TYPE du symbole atomique est chargé dans Le registre 
АЗ. Се F-TYPE contient le type codé de la fonction associée au 
symbole. 


{19} ce point d'entrée sera utilisé pour traiter les fonctions de type 
INTERNAL. 


{20} enfin on réalise un branchement indirect (dans la table 
d'étiquettes TEVAL3) indexé par le F-TYPE (contenu dans A3). Ce 
branchement permet de se retrouver directement dans la routine 
qui traite un type de fonction spécifique. A l'entrée de 
chacunes de ces routines, А1 contient toujours la Liste des 
erguments, A2 Le nom du symbole de La fonction, et La F-VAL de La 
fonction est empilée. Ce type d'aiguillage est trés rapide et 
n'est pas dépendant du nombre de F-TYPE. IL faut noter que 8 
instructions seulement ont été exécutées depuis l'entrée dans [а 
fonction EVAL. | 


(21)... TEVAL3 est la table des adresses des routines spécialisées de 
traitement de chacun des types de fonctions. 
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4.6.2 Le traitement des SUBR 


Chaque type de SUBR possède un module spécial qui permet de langer la 
fonction spécifiée. A l’entrée de ces modules de lancement, Ai 
contient la Liste des arguments non-évalués (i.e. le CDR de l'appel 
cf: (12D et la F-VAL de la fonction (i.e. l'adresse mémoire de la 
fonction) est empitée (cf: (17D. 


1) Pour Les OSUBR, il n'y a pas d'argument à évaluer et le branchement 
peut s'effectuer tout de suite. L'adresse de branchement a été 
empilée en (17), il suffit donc de réaliser une continuation 
[RETURN]. | | 
De même pour les FSUBR, La liste des arguments non-évaluée ве 
trouvant déjà dans Al, il suffit de réaliser une continuation 
[RETURN] pour lancer la fonction. 


Lancement d'une OSUBR 
ou 
Lancement d'une FSUBR 


EURLO: 
EURLF: 
(31) NOP, , [RETURN] 


2) Pour les 1SUBR, il faut au préalable évaluer le ler argument avant 
de réaliser un branchement vers [а fonction. L'adresse de 
Lancement de La fonction se trouvant empilée, il est possible 
d'utiliser le JRST-hack (Note 1} pour évaluer Le ler argument eu 
moyen d'un JUMP à la fonction EVAL qui déposera dans Al la valeur 
de l'argument. Le retour d'EVAL s'effectue directement dans ie 
fonction 1SUBR qui doit être lançée. 


0 6  Ó— cctte 


{Note 1} le JRST-hack est 1a transformation itérative d'une récursion 
terminale dans un langage machine (1e nom JRST provient du mnémonique 
du branchement inconditionnel sur  PDP10). En  UCMC2 cette 
transformation s'opère comme suit : 


--- у,, [CALL (x21 se transforms en --- ss C JUMP (x21 
NOP ,,[ RETURN] 


sachant que x s'achève lui-même par NOP ,,CRETURNI. 
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eegend 


Lancement d'une 1SUBR 


6354 EVAL 1 : 
33 CAR A1,A1, [JUMP (EU 31) 


3) Pour les 2SUBR, il faut évaluer 2 arguments avant de lancer la 
fonction et placer ceux-ci respectivement dans les registres Al et 
A2. Ceci est réalisé par le code suivant : 


Lancement d'une 2SUBR 


34? EURL2: ` 
Š CDR A1, TST, [CALL (EURL1)1 
See A1,,LCALL (UL 131 


2 
POP A1; , [RETURN] 


{35} évalue le ler argument après avoir sauvé dans la pile le reste 
des arguments 


[36] échange dans le sommet de la pile la valeur du ler argument 
avec le reste des arguments puis évalue le 2ème argument 


{37} transfère dans A2 (а valeur du 2ème argument 


{38} récupère la valeur du ler argument dans Al et se lance à 
L'adresse de La fonction de type 2SUBR (i.e. [а F-VAL empitée 
en {17} 


4) Pour les 3SUBR, il faut évaluer 3 arguments avant de lancer la 
fonction et placer ceux-ci respectivement dans les registres Al, A2 
et A3. Ceci est réalisé d’une manière analogue au lancement des 
2SUBR : 
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Lancement d'une 3SUBR 
ЕЈА З: 


ПРИЕ C(EVAL1) ] 


MI, TST, [CALL (CEUALT)] 
XTOPST R1,,LCRLL C(EURL1)] 
MOUE A1,A3 
POP A2 
POP  A1,, [RETURN] 


{40} évalue Le ler argument après avoir mis à l'abri dans la pile 
le reste des arguments 


{41} échange dans le sommet de la pile (а valeur du ler argument 
evec le reste des arguments puis évalue le 2ème argument 


{42} évalue Le 2ème argument après avoir sauvé dans la pile Le 
reste des arguments 


(43) échange dans Le sommet de la pile la valeur du 2ème argument 
avec le reste des arguments puis évaiue le 3ème argument 


{44} transfère dans АЗ la valeur du 3ème argument 

{45} récupère la valeur du 2ème argument. 

{46} récupère la valeur du ler argument dans A1 et se lance à 
L'adresse de (а fonction de type SSUBR (i.e. La F-VAL empilée 
en (17D 

5) Pour les NSUBR, il faut fabriquer dans Al la liste des valeurs des 


arguments avant de lancer la fonction. Ceci est réalisé par le 
sous-programme récursif suivant : i 


Lancement d'une NSUBR 


A1, , [RETURN] 


A1, TST, [CALL (CEURLT)] 
A1, , [CALL (EUñLN)1 
TST, A1, [RETURN] 
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Ce sous-programme est identique à celui traitant Les fonctions 
EVLIS ou LIST. 


(51) s’il n'y a pas (ou plus) d'arguments à évaluer lancement de la 
NSUBR (ou retour du sous-programme récursif en (54). 


(52) évaluation de l'argument suivant aprés avoir sauvé dans la 
` pile le reste des arguments. 


(53) échange de la valeur de l'argument avec le reste des arguments 
et appel récursif de EVALN pour évaluer Le reste des arguments 


{54} fabrication de la Liste et retour à un niveau inférieur 
d'appel de EVALN ou bien lancement de (а NSUBR. 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 112 / 362 


L'EVALUATEUR DE BASE Page 111 


3———————————J nó ои 


4.6.3 L'évaluation des fonctions de type EXPR 


L'évaluation d'une fonction de type EXPR doit s'opérer en trois 
temps : 


1) liaison des variables de la fonction aux arguments fournis à 
l’appel de cette fonction et sauvetage des anciennes valeurs des 
var iab les 


2) exécution du corps de la fonction 
3) restauration des anciennes valeurs des variables sauvées en 1). 


La valeur d’une variable est contenue à tout moment dans sa C-VAL. Le 
sauvetage des anciennes C-VAL des variables est réalisé par la 
construction d’un bloc de sauvegarde dans la pile. 


Voici l'état de la pile AVANT d'effectuer la sauvegarde : 


SP > | adresse de retour de EVAL | 


. ° ө 8 . 


Le bloc de sauvegarde aura la forme suivante : 


SP > | la nom de la variable N | 
son ancienne C-URL 


le nom de la variable 1 
son ancienne C-URL 


. adresss de retour de EURL 


э Фф ° э e e 


Le marqueur SMARKS sert à indiquer la fin des couples variable-valeur 
et est utilisé durant la phase de restauration des anciennes valeurs. 


Il existe deux méthodes pour construire ce bloc. La première méthode 
consiste à évaluer tout d'abord tous les arguments et à rassembler 
toutes les valeurs dans une Liste (travail effectué par le 
sous-programme EVALN:) puis à réaliser les liaisons en parcourant 
simultanément la Liste des variables et la liste des valeurs. 
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,,LCRLL (EURLND1 ; évalue les arguments 
a ; Ad < la F-val 

A4, (@ CORPS) : sauvée dans CORPS 

! =MRRK= : parque la pile 
A4,A2, LJUMP (BINDE)] ; A2 < <svar> 


A3 + variable suivante 
sauve son ancien. C-val 
64 + valeur suivante 
nouvelle C-val 

avance dans les var. 


; variable suivante 
; terminé 


: avance dans les val. 
] 
1 


&2,,L JUMP (BIND1) 

A2, , [JUMP (BIN) 
2, TST ; dernière valeur 
e : dernier nom 

A1,A2 : dernière liaison 


(е CORPS) ,A1 : A1 < corps 


Cette méthode facile à décrire et à conprendre présente l'énorme 
défaut de consommer des doublets de liste indirectement par Le 
sous-progremme EVALM, augmentent d'sutent le nombre de récupérations 
de la zone Liste. De plus tous les erguments sont évalués, méme ceux 
en surnombre, qui ne seront Liés à aucune variable. 


La deuxième méthode utilisée pour réaliser cette liaison va permettre 
de ne consommer que des ressources de type pile. Pour assurer un 
parallélisme dans la réalisation des Liaisons, il faut évaluer TOUTES 
les valeurs des arguments AVANT de réaliser Les liaisons proprement 
dites qui vont affecter les C-VAL des variables. 


Ceci est réalisé en utilisant un algorithme comportant deux phases : 


1) évaluation des arguments et fabrication dans la pile d’un bloc 
possédant la structure suivante : 


SP + {в nom de ia variable N 
sa nouvelle valeur 
le nom de la variable 1 
sa nouvelle valeur 
corps de la fonction 
adresss de retour de EURL 
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2) réalisation des liaisons proprement dites, еп échangeant les 
nouvelles valeurs des variables dans la pile avec leurs anciennes 
C-VAL. | 


Voici le code de ces deux phases : 


: A4 + la F-VAL 
A4, A2 | A2 € <вуаг> 
CDR A4, TST, [JUMP CEVEXP2)1 ; sauve le corps 


. Fabrication des emplacements dans la pile 
et évaluation des arguments 


107} EVEXP1: 
8 CDR A1, TST ; sauve le reste des val. 

Аг, , [CALL (EURL1)1 ; empile Les variables 

A2 ; récupère les variables 

A1 ; force la valeur évaluée 

A2, TST ; empile le nom 

n2, A2 ; variable suivante 


A2, , [JUMP CEUEXP1)1 ; il en reste 
А2, [JUMP СЕЧЕХРЗ) ) ; c'est la fin 
A2, [CALL CEVALN)] ; évalue la liste 
a1 : empile la valeur 


81 : empile le nom 
Réalise la liaison superficielle 


EUEXP3: 
STACK A4,, [JUMP (EUEXP5)1 ; garde la hauteur 
EVEXP4: 

R2,R1 ; récupère la C-URL 
XTOPST A1 : qui est sauvés 
SCURL AA : nouvelle liaison 


POP saute la valeur 
ЕМЕХРӘ: 

РОР яг ; nouvelle variable 

TATOM AP,,[JUMP (EUEXP4)1 ; il y en a encore 

PUSH '=МААК= ; marque la pile 


133}  EUEXPN: ; appel normal 
134 t 


SSTRCK A4 ‚ tête de bloc 
135] MOVE A2,A1 : A1 < le corps 


C'est cette méthode qui est utilisée dans notre modele. 
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Une fois les variables liées, il faut exécuter le corps de la fonction 
puis délier les variables. 


; Exécution du corps de la fonction 
11401 ЕХЕС: 
141 


МОР [CALL (PROGN)]1 ; évalue le corps 
s Délie les variables 


142} UNBIND: 
143 ES А ; dépi (е encore 


144 'SMARKS, [RETURN] ; c'est fini 
145 ЕН Емі 7st, R4,LJUMP CUNBIND)]; retour 


(140) EXEC : est l'étiquette du sous-programme qui évalue le corps de 
La fonction. Ce corps doit être contenu dans Al. 


(141) après avoir chargé dans Al Le corps de la fonction (i.e. [е CDR 
de la F-VAL) (103, 130, 135), il faut appeler le sous-programme 
PROGN, qui va évaluer Les différents éléments de la Liste Al et 
retourner en valeur la valeur de la dernière évaluation. 


Ce sous-programme s'écrit : 


PROGN: СОН A1,A2 
FLIST R8,,LJUMP C(EURL1)1 
PUSH А2, ;ECALL (EURL1)7 
POP  fR1,,t JUMP CPROGN) 3 


{142} au retour du PROGN, Al contient la valeur de la fonction et Le 
sommet de la pile a le forme : 


SP > | nom de la varisble N | 
son ancienne C-URL 


nom de la variable 1 
son «сае 


adresse de retour 


11 faut donc délier les variables, еп dépilant successivement 
tous Les couples variable-valeurs sauvés dans La pile, jusqu’à Le 
rencontre du marqueur de pile ©MARKS, ce qui est réalisé раг 
(143), (144) et (145). 
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4.6.4 L'évaluation des fonctions de type FEXPR et MACRO 


L'évaluation des fonctions de type FEXPR ne se différencie de 
l'évaluation des EXPR que par la Liaison des arguments. Les arguments 
ne devant pas étre évalués, la fabrication du bloc de sauvegarde dans 
la pile ne pose pas les problèmes soulevés par Les EXPR. 


Evaluation des FEXPR 
R4 ; A4 < la F-URL empilée 
; commun FEXPR/MRCRO 
A4, A2 : Re + liste de variables 
MARKS, , [JUMP CEUFÉX3) ] 


A2,A3 
ЯЗ, TST 


A3 e variable suivante 
sauve l'ancienne CUAL 


sauve le nom de la var. 


autres valeurs à NIL 


81,83 М force la nouvelle val. 


3 
NIL,A1 
A2,A2 


A2, , [JUMP CEUFEX2)1 ; il reste des var. 
R4,R1,LJUMP СЕХЕС) 1] ; exécute le corps 


Evaluation des MACRO 


EUMRC: 
MOVE се FORMED,R1 
POP A4 
PUSH (EVAL), , [JUMP CEUFEXB) 1 


{150} est i'adresse de la routine spécialisée dans l'évaluation des 
MACRO. 


{151} prépare dans A1 l'argument de la MACRO qui est par définition la 
forme elle-même, sauvée dans FORME en {2}. 


{152} libère la pile en chargeant dans A4 La F-VAL de la MACRO qui 
avait été empilée en 717). 
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erg 
{153} permet de réaliser la double évaluation en utilisant La 
propriété de la pile de contróle : 


NOP  ,,[CALL (EXFEXB)J 
NOP — ,,LJUMP (EURL)] 


équivalent à : 


PUSH  CEUAL),,[CALL CEUFEXB) 3 


4.6.5 L'évaluation des fonctions numériques 
Dans le cas où la fonction est un nombre <n>, elle retourne le <n>ième 
élément du ler argument évalué qui doit être une liste. IL y a donc 
un appel impicite de (а fonction WLISP| CNTH. 

Exemple : (3 '(A B C D E)) S C 
Cette propriété permet d'accéder directement à n'importe quel élément 
d'une Liste sans avoir à manier de. Longues chaînes de sélecteurs 
CAR/CDR. 

(9 <l>) est équivalent à (САН (CDDR (CDDDR (CDDDR <1>222) 


Voici le code VCMC2 traitant des fonctions numériques : 


Evaluation des fonctions numériques 


61794 EVALFN: | 
1701 мі A2, , CCALL. (EURL1) 1 ; A1 < la val de la liste 


A 71 OP 
172} EURLN!: 
73 CDR 


A2, [L JUMP СЕЧА М) 1 ; A2 < le nb 


A1,A1 : avance dans la liste 
A1, , [RETURN] ; si la liste est vide 


,Re 
&2.'O,LJUMP CEURLNM)1 ; il faut encore avancer 
81, A1, [RETURNI : ramène l'élément pointé 
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4.6.6 L'évaluation des fonctions composées 


Si La fonction n'est ni un symbole atomique, ni un nombre, il s'agit 
alors d'une fonction composée. 


Cette fonction est une liste qui peut être la description anonyme de 
(а fonction ou une nouvelle forme dont la valeur sera la fonction. IL 
s'agit de fonctions calculées. 


Les fonctions anonymes possédent deux formes : 


- la forme A 
- la forme INTERNAL 


Ces deux formes sont détectées par tests du ler élément de la Liste, 
et sont évaluées d'une maniére analogue aux fonctions associées aux 
symboles atomiques. 

En revanche les fonctions calculées demandent une nouvelle évaluation 
dont La valeur est la fonction. En terme de syntaxe, МР) utilise 
donc l'appel par nom des fonctions. L'utilisation de ces fonctions 
calculées, permet une trés grande souplesse quant à l'utilisation des 
fonctions. 


Voici lé code VCMC2 traitent dez fonctions composées : 


Evaluation des fonctions composées 
(180) EURLFS: 


A2, аз ; ЯЗ + CAR de la fonct. 
АЗ, ‘LAMRDS, [JUMP СЕЧА.) 1 ; c'est une А 
R3,'INTERNRL, [JUMP CEURLI)3 ; fonction INTERNAL 
A7 ; seuve les arguments 
A2,A1, [CALL СЕЧА) 1 ; évalue la fonction 

A1, ; pour EURLFU 

81,,L JUMP CEURLFUD 1 ; re-évalue la forme 


{190} : ;--- ia fonction est une À 

{191} A2,TST, [JUMP (EUEXP) 1 

(192) EURLI: p La fonction est INTERNAL 
FH 


A2, A2 ; A2 < (FVAL) 
A2, TST, [JUMP (EURLIND3; pile < FURL 
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4.7 COMMENT DEFINIR DES FONCTIONS EN MIO ? 


Définir une fonction c'est associer à un symbole atomique un couple 
F-TYPE, F-VAL. Cette association va changer les propriétés naturelles 
F-TYPE et F-VAL de. l'atome. 


On peut définir de nouvelles fonctions de deux maniéres : 

- statiquement 

- dynamiquement 
Toute fonction définie statiquement restera définie jusqu'à ce си’ опе 
nouvelle définition lui soit donnée explicitement. La durée de vie 
d'une telle fonction est entièrement contrôlée par l'utilisats.^. 


` Une fonction définie dynamiquement en revanche ne restera définie que 
Le temps de l'évaluation d'une suite d'expressions fournie au monent 
même de la définition de la fonction. Ces définitions plus complexes 
seront décrites au chapitre 7. 


permet de modifier statiquement les propriétés naturelles F-TYPE 


et F-VAL d'un atome de quatre manières distinctes : 


1) en utilisant directement les fonctions d'accès aux propriétés 
naturelles des atomes. IL existe en effet 2 fonctions : 


(FTYPE <a> <v>) 


(РОА <a> <v>) 


qui vont permettre d'accéder aux propriétés naturelles de l'atome 
<a>. Si le 2ème argument «v», n'est pas fourni, l'accès est en 
lecture seule, en revanche, s'il est fourni, il devient la nouvelle 
valeur de la propriété. 


2) en utilisant les fonctions de définition statique de type DE/DF/DM. 
WLISP| possède en effet trois fonctions de définition statique : 


(DE <a> <svar> <81> ... <аМ>) 


(DF <a> <svar> <ө1> ... <eN>) 
(ОМ «a» <svar> <81> ... «eN») 


qui permettent de declarer des définitions de type EXPR, FEXPR ou 
MACRO respectivement. Ces fonctions détruisent irrémédiablement 
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Les anciennes propriétés F-VAL et F-TYPE des atomes concernés. 


3) en utilisant les fonctions de re-définition statique de type RDE, 
RDF ou RDM. Ces fonctions (qui possèdent la même syntaxe que les 
fonctions précédentes) vont sauver les anciennes valeurs des 
propriétés avant de les modifier. Cette sauvegarde s'effectue par 
mise sur la P-LIST de l'atome d'une Liste де la forme 
(«ftyp» <fval>) sous L indicateur INTERNAL. Ces fonctions sont en 
général utilisées en phase de mise-au-point pour redéfinir 
statiquement des fonctions standards. 


(RDE <a> <svar> <81> ... <eN>) 


(RDF <a> <svar> <81> ... <eN>) 
(RDM «a» <svar> <81> ... <eN>) 


Cette redéfinition est effectuée comme suit : 


(RDDPROP «a» Г (FTYPE <a>) (FURL <a>) 1 INTERNAL.) 


(DE/DF/DM «a» <svar> <81> ... <eN>) 


4) en utilisant ia fonction de restauration des anciennes valeurs des 
propriétés. Cette fonction : 


(REUERT <a>) 


permet de restaurer Les propriétés naturelles de l’atome «a» 
précédemment sauvées au moyen d'une fonction du type précédent. 
Cette restauration est effectuée comme suit : 


? (ЕТҮРЕ «a» (CAR (GET <a> INTERNAL))) 
(FURL «a» (CADR (GET <a> INTERNAL))) 
(REMPROP «a» INTERNRL) 
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4.8 LES FONCTIONS STANDARDS. 


La description de l'interprète de base est donc terminée. Toutefois 
un interprète MISE ne peut pas fonctionner sans un certain nombre de 
fonctions standards (de type SUBR et FSUBR). Ces SUBR seront : 

- des fonctions de contróle 

- des fonctions de manipulation d'objets VSA 

- des fonctions de test 


Le texte de 160 fonctions standards (y compris les fonctions 
d'entrée/sortie) est donné dans les appendices C, E et F. 


сз Со 0). ^9 


2 
4 
6 
8 
1 
1 
1 
1 
1 
2 


EVLI Sx 1S 
EXI TCHRONOL 


EXPLODE 
F INDCHRONOL FREVERSE 
FREVERSEx FTYPE 
IFN 
INTERNAL 
LAMBDA 
LE 
LESCAPE 
75 LE FSUBR LETF 
77 LIST FSUBR 78 LIST% FSUBR 
79  LISTP 1SUBR 80  LMARGIN 1SUBR 
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3 
105 


10 
10 
11 
11 
11 
11 
11 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
15 
15 
15 
15 
1 


о 
ONDO CO GIO CO УСЛО) О Kn Le F CO KA HON 


LOGAND 2SUBR 
LOGXOR 2SUBR 
MAP NSUBR 
MCON FSUBR 
MEMORY 2SUBR 
MINUS 1SUBR 
NCONC 2SUBR 
NCONS 1SUBR 
NEQUAL 2SUBR 
NEU FSUBR 
NOT SUBR 
NULL 1SUBR 
OR SUBR 
OUTPOS 1SUBR 
PLENGTH 1SUBR 
LUS SUBR 
PPRINT 1SUBR 
PRIN SUBR 
PRINT SUBR 
PRINTLEVEL 150ВА 
РВОС1 SUBR 
PRSTACK 1 SUBR 
PUT SUBR 
QUOTE FSUBR 
RDF SUBR 
READ OSUBR 
REM SUBR 
REVERSE SUBR 
RMARGIN 1 SUBR 
RPLACB 2SUBR 
SELECTQ FSUBR 
ET 2SUBR 
SETQQ FSUBR 
STOP OSUBR 
UBST 3SUBR 
SYNONYM 2SUBH 
MES 2SUBR 
TYPECH 25088 
WHERE FSUBR 
XCONS 2SUBR 


eo rr i pa .—— 


De la puissance de ces fonctions 


système. 


104 
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standards 


LOGOR 2SUBR 
T 2SUBR 
PC NSUBR 
MEMBER SUBR 
MQ 2SUBR 
MINUSP 1SUBR 
NCONC1 2SUBR 
NEQ 2SUBR 
NEROP 1SUBR 
NEXTL FSUBR 
NTH 2SUBR 
NUMBP 1 SUBR 
OUTBUF 2SUBR 
PEEKCH OSUBR 
PLIST 2SUBR 
PPRIN 1SUBR 
RETTY FSUBR 
PRINCH 2SUBR 
PRINTLENGTH 1SUBR 
PRINTLINE  1SUBR 
PROGN SUBR 
PTYPE 2SUBR 
QUO SUBR 
RDE FSUBR 
RDM FSUBR 
READCH OSUBR 
REMPROP 2SUBR 
REVERT 1SUBR 
RPLACA 2SUBR 
RPLACD 2SUBR 
SELF SUBR 
SETQ UBR 
STEPEVAL  1SUBR 
SUB1 _ SUBR 
SUBS Tx 3SUBR 
TERPRI 1SUBR 
TOPLEVEL  OSUBR 
UNTIL SUBR 
MHI LE FSUBR 
ZEROP 1SUBR 


dépend 


Nous considérerons donc que la fonction EVAL est 
d'un ensemble de fonctions élémentaires, 
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CHAPITRE 5 


LES ENTREES 


L'interpréte de base vu au chapitre précédent ne possède pas de 
fonctions d'entrée/sortie. Nous décrirons donc dans ce chapitre, 
ainsi que dans le chapitre suivant toutes Les fonctions standards 
d'entré/sortie de notre modèle а” implémentation. 


WLISP| étant très utilisé pour réaliser des traitements symboliques, les 
fonction d'entrée doivent être capables de Lire aussi bien des 
expressions NLISP| que d'autres textes symboliques. 


5.1 LA SYNTAXE DES EXPRESSIONS VLISP 


La syntaxe des expressions WLISP est extrémement simple et découle de 
(а syntaxe LISP utilisée de nos jours, la syntaxe des S-expressions. 
Originellement cette syntaxe n'avait été congue que pour décrire les 
structures de données de LISP et non pas les programmes LISP qui 
disposaient d'une autre syntaxe, la syntaxe des M-expressions. 

Par la suite, seule la syntaxe des S-expressions a été utilisée. 
Toutes Les tentatives d’utilisation d’une autre syntaxe en général 
epparentée à L’ALGOL (tels MLISP [SMITH 731, CLISP [TEITELMAN 731, 
CGOL [PRATT 761) sont restées vaines. 


Nous préférons à la place d'imposer une nouvelle syntaxe (dont 
l'utilité reste encore entiérement à démontrer) donner à l'utilisateur 
toutes les facilités pour contrôler lui-même voire totalement changer 
l'analyse lexicale et syntaxique des fonctions d'entrée. 
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La syntaxe NLISP] se différencie de la syntaxe LISP classique par les 
points suivants : | 


1) il existe deux manières d'inclure des caractères spéciaux dans Le 
nom externe (P-NAME) d’un symbole atomique : 

- еп quotant chaque caractère spécial раг Le caractère 
quote-caractère. Ce caractère est en général le / mais peut être 
redéfini. 

- en encadrant tous les caractères du P-NAME par іе caractère 
détimiteur de P-NAME. Ce caractère est en général le guillemet " 
mais peut étre redéfini. (ев symboles atomiques créés en 
utilisant cette 2ème méthode sont considérés comme des constantes 
i.e. que la valeur du symbole à sa création n'est pas la valeur 
indéfinie mais le symbole tui-méme. IL n'est donc pas nécessaire 
en MSP) de quoter ces symboles atomiques pour les utiliser sous 
la forme de constantes. Ces symboles atomiques font ainsi office 
de pseudo-chaînes de caractéres. 


2) Les expressions МИР utilisent La forme la plus générale des 
. S-expressions 18Р : 


( «expression? . «expression» ) 


3) М8 possède une nouvelle syntaxe pour décrire (а construction 
dynamique de Listes. Cette notation qui utilise des crochets 
carrés unifie en une seule description toutes Les fonctions de 
création de listes : 


L'expression MISA correspond à l'écriture LISP 


[ «e» ] (NCONS <e>) {Note 1} 
Г «el» . <е2> 1 (CONS «el» <e2>) 
E cel» ... <eN-1> . <eN> 1 (MCONS <el> ... <eN>) {Note 2} 


«el» ... <eN> 1 (LIST «el» ... «eN») 


(Note 1j cette fonction peut étre définie en NLISP| : | 
(DE NCONS (x) «CONS x NIL)) 
(Note 2} cette fonction peut étre définie en MLSA : 
(CF MCONS (L) 
(LET (L L) 
CONS (EVAL (CAR L)) 
СІР (NULL «(СООН L)) 


(EURL (CADR L)) 
(SELF (CDR 20022) 
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l'écriture : 
па. YI [U] W X] 
correspond à l'appel 


(LIST «CONS A Y) (NCONS U) W X) 


4) les commentaires sont encadrés du caractéres début de commentaires 
(e.g. le ; ) et du caractère fin de commentaires (e.g. le 
caractère fin de ligne). Le caractère début de commentaires peut 
étre également employé comme caractére fin de commentaires ce qui 
permet d'avoir 2 types de commentaires : 


- Les commentaires à l'intérieur d'une ligne 
- Les commentaires jusqu'à la fin de la Ligne. 


5) Notre modèle possède des macro-ceractères {Note 1} qui permettent 
d'accroitre considérablement Les possibilités des fonctions 
standards de lecture. I 


Le macro-caractëre le plus fréquemment utilisé est Le 
macro-caractère QUOTE qui produit le résultat suivant : 


'<в> est lu (QUOTE <s>) 


ee 


{Note 1) un macro-caractère est un caractère auque! est associé une 
fonction MIS. А la lecture de ce caractère par les fonctions 
d'entrée, la fonction associée est appelée automatiquement et la 
valeur de l'évaluation de cette fonction remplace le caractère qui 
avait été lu. 
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5.2 QUE PERMET Lñ MACHINE UCMCe EN ENTREE 


Trois instructions d’entrée sont suffisantes dans notre modèle : 


RERD expression М9 Lue 
caractère lu 


l 
I NTERN forme interne de «s» 


La première instruction READ n'est pas une véritable instruction 
VCMC2. En effet elle réalise la lecture complète d'une expression 
VLISP. Cette instruction n'est donc pas utilisée par les fonctions 
d'entrée dont Le rôle est précisément de réaliser cette Lecture mais 
sert à tester le fonctionnement de l'interprète  indépendemment des 
fonctions d'entrée. 


La seconde instruction IN est la seule intruction de lecture physique. 
Cette lecture a Lieu dans un flux unique de caractères d'entrée. Nous 
n'aborderons pas dans cette étude les flux multiples d'entrée. 


La dernière instruction INTERN est utilisée pour fabriquer La 
représentation interne d’un atome MISA. La gestion de la zone allouée 
eux atomes dépend de l'incarnation propre de notre modéle. INTERN 
sert donc d’interface entre les modules de gestion de cet espace 
(allocation et recherche) et Les modules d'analyses lexicales еї 
syntaxiques d’entrée décrits en VCMC2. 


Clessiquement cette gestion fait intervenir une liste des objets (i.e. 
de symboles atomiques) présents dans Le système,  l'OBLIST. Les 
symboles atomiques (de longeur variable (voir le paragraphe 2.2?) sont 
Liés dans L’OBLIST au moyen d’un pointeur sur l'objet suivant, le 
A-LINK, qui est une propriété naturelle de tout symbole atomique. 

Ce A-LINK permet de réaliser à peu de frais un hash-coding де cette 
Liste (Note 1}. | 


{Note 1) 1ғ clé du hash-coding utilisée par VIS 10 est le reste de 1а 
division entière du nombre de caractères du P-NAME du symbole et de 
ses 4 premiers caractàres (1e tout sur 36 bits) par 1a valeur 71. Les 
résulats obtenus avec ипе OBLIST toujours supérieure à 600 éléments 
est de 2,3 recherches par élément si on ajoute le raffinement 
supplémentaire suivant (induit par l'accès non-uniforme aux 
symboles) : tous les éléments trouvés sont systématiquement remis en 
tête de chaque sous-liste. 
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5.3 L'ORGANISATION DES MODULES D' ENTREE 


Nous avons découpé Les fonctions d’entrée en plusieurs modules dont 
voici Le synopsis. Le texte de ces modules est donné à 1° аррепаісе С. 


GETCH traite Le caractère , 
suivant du flux d’entrée 


- A3 = Le type du A4 = іе caractère suivant 
caractère du flux d'entrée 
type-ch 


traite Le caractère 
valide suivant 


A3 = Le type du 
caractère A4 = іе caractère 
v V 


valide suivant : valide suivant 
type-cv 


traite l'unité syntaxique 
RD1 suivante (і.е; C») T1) 
et les atomes) 


A3 = Le type de , 
L'unité syntaxique A1 = l’unite 
suivante : syntaxique suivante 


traite les expressions NLISP; 


l'expression MISE suivante. 
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Chacun de 
- l’objet 
- le type 
Le retour 
L' analyse 


ces modules retournent 2 valeurs : 
traité par le module 

de cet objet. 

systématique d'un type codé permet 
au moyen d'aiguillages. 


de réaliser toute 


1) Le module GETCH 


traite 


interne de 
type-ch. 
caractères 


11 retourne dans fid le code 
ce caractère et dans A3 Le type du caractère suivant 
Note modèle possède à cet effet une table des types des 

(la table TABCH) qui associe à chacun des caractéres un 


Le caractére logique suivant. 


type type-ch qui peut prendre les valeurs suivantes : 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
1 
1 
1 


complétement 
e.g. $ 
.g. RO 


caractère à ignorer | 

caractère début de commentaires 

caractère fin de commentaires (e 

caractère quote caractere (e.g. 4/2 
) 


) 


caractère début de liste (e.g. 
caractére fin de liste (e.g. 
caractère début de liste évaluée (e.g. 1) 
caractère fin de liste évaluée (e.g. 19 
caractère de paire роіліге (e.g. . 
caractère séparateur (e.g. l'espace) 
macro-caractere 

caractére délimiteur de P-NAME (e.g. " ) 
caractére normal 


2) Le module GETCU 
traite le caractére valide suivant. Ce module enlève les 
commentaires, réalise l’action du quote caractère, retourne le 
caractère valide suivant dans fá et Le type de ce caractére 


(type-cv) dans АЗ parmi les types suivants : 


caractère 
caractère 
caractère 
caractère 


début de liste (e.g. С) 
fin de liste (e.g. ) 

début de liste évaluée (e.g. 
fin de liste évaluée (e.g. ] 
de paire pointee (e.g. > 
séparateur (e.g. l’espace) 


caractére 
caractère 
macro-caractère 

caractère délimiteur de P-NAME (e.g. 
caractère normal | 


u 


00-410) 01 ON CÓ 
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3) Le module RD1 


traite l'unité syntaxique suivante. Ce module traite les symboles 


atomiques, les pseudo-chaînes de caractères, appelle les fonctions 
associées aux macro-caractéres, retourne dans A1 l'objet МОР) 
suivant et dans A3 le type de l'unité syntaxique (type-us) qui peut 


prendre les valeurs : 


début de liste (e.g; ( ) 
fin de liste (e.g. ) 
. début de liste évaluée (e.g. [9 


fin de Liste évaluée (e.g. 
de paire pointee (e.g. » ? 
ob jet ie (valeur dans Al) 


Һр: "m 
ttp;//www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 131 / 362 


LES ENTREES 


Page 130 


5.4 LES FONCTIONS STANDARDS D' ENTREE 


LES FONCTIONS SI 


Notre modèle permet d’utiliser ces modules et d’accéder à La table des 
type des caractères au moyen de fonctions standards. 


Nous avons inclu 8 fonctions standards d'entrée dans notre modèle : 

- 2 fonctions de lecture d'expressions MISE, 

- 2 fonctions de lecture de caractéres, 

- Les fonctions de conversion code interne vers caractére, 

- Да fonction d'accès à la table de l'analyseur lexical 

- et une fonction de définition de nouveaux macro-caracteres. 

Ce nombre volontairement Limité, va cependant permettre tous les types 
de lecture. 


Les fonctions de lecture des expressions WLISP détectent les erreurs de 
syntaxe dans ces expressions. Ces erreurs sont des erreurs fatales et 
provoquent l'arrêt de la lecture. 


Fonctions de lecture d'expressions : 
CREAD) 


CIMPLODE <t>) 


La fonction READ réalise la lecture dans le flux d'entrée de 
caractères tandis que la fonction IMPLODE possède un argument <l> qui 
est une liste de caractères faisant office de flux d'entrée. | Cette 
fonction permet un accés direct à toutes les possibilités de création 
d'objets internes. 


Ainsi l'appel : 
CIMPLODE '( "'" "(RB nn p "j" уу 
Livrere en résultat la Liste : 


(QUOTE «RB C)) 


It est également souhaitable pour réaliser des lectures particulières 
de lire le flux d'entrée caractère par caractàre. Ceci est réalise au 
moyen des deux fonctions : 
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ee 


Fonction de lecture de caractère : 


(RERDCH) 
(PEEKCH) 


Ces deux fonctions retournent en valeur Le caractére suivant 
forme d'un symbole atomique mono-caractàre et ne se différenc 


par l’état du flux d'entrée aprés Leur invocation 


sous la 


tent que 
fonction 


RERDCH fait disparaître le caractère du flux d'entrée tandis que la 


fonction PEEKCH ne fait que consulter Le caractère et laisse 


d'entrée inchangé. 


te flux 


Notre systàme permet également de convertir des caractères en leur 


équivalent interne. 


Fonctions de conversion 
(ASCII <n>) 


(CASCII <c>) 


La première fonction ASCII convertit Le code interne 


«n^ еп son 


équivalent caractàre et la seconde CASCII retourne le code interne de 


son argument qui doit étre un symbole atomique mono-caractére. 


Enfin il existe une fonction d'accès à la table 
caractéres. 


Fonction d'accès à la table des types 


(TYPECH <c>) (есімге 
(ТҮРЕСН <с> <п>) écriture 


Cette fonction permet donc de connaître ou de modifier tout ou 
(La table TABCH) 


de la table des types des caractères d’entrée 


types des 


partie 


facilitant ainsi la relecture des programmes LISP écrits dans d’autres 
dialectes LISP. La valeur <n> est un type de caractère (type-ch) tel 
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e 


qu’il est donné au paragraphe 5.3 


Enfin la dernière fonction standard d'entrée est la fonction de 
définition de nouveaux macro-caractères. La syntaxe de cette fonction 
est identique à celle de toutes les autres fonctions de définition. 


Fonction de définition d'un 
nouveau macro-caractère 


(DMC «c» <sarg> <e1. ... <eN>) 


qui peut être défini en : 


(ПЕ DMC (L) 
СТҮРЕСН (CAR U) 10) 
СЕЧА ['DE . 0) 
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CHAPITRE 6 


LES SORTIES 


Les possibilités de sortie de notre modèle d'implémentation doivent 
recouvrir tant les éditions automatiques des expressions WLISP avec ou 


sans formatage que Les éditions de résultats qui 


entièrement contrôlées par l’utilisateur. 


Il existe deux grands types d'impression des expressions (LTSP| 
- les impressions destinées à être relues par les utilisateurs 


` 


- Les impressions destinées à être relues par Le systè 


fonction READ). 


Les problèmes ne sont évidemment pas les mêmes. 


doivent étre 


par la 


impressions 


destinées aux utilisateurs se doivent d'étre trés Lisibles, aérées, 


faisant resortir la structure de contróle des expressions 
doivent pas respecter à ta lettre la syntaxe d'entrée 


READ. Ces impressions vont faire appel à des 


MSA et пе 
e la fonction 
techniques de 


typographie classique utilisées dans les systèmes de composition 


automatiques (appelés parfois document compilers) 


ou le système TEX [KNUTH 78a, 78b]. Еп revanche 


destinées à être relues par le système doivent répondr 


tels 
RUNOFF [DEC 75bl, le système PUB [TESLER 721, Le système 


іе système 
РОХ [MAAS 781 
impressions 
e exactement à 


La syntaxe d'entrée de la fonction «READ et être si possible trés 


compactes pour minimiser la place occupée pour : 
expressions et par conséquent Les temps de lecture. 


Le stockage des 
Ces deux types 


d' impression sont incompatibles et c'est pourquoi notre modèle possède 


deux familles de fonctions d' impression. 


En ptus du problème d' impression des expressions MIO 


Le système de 


sortie va donner accès à tous Les objets internes utilisés par Les 


différents modules de sortie pour pouvoir redéfinir еп 


tiérement un 


rede Tin tr езі 


système de sortie sur mesure. 


Le texte des fonctions de sortie du système, écrites en VCMC2, est 
donné à l’appendice E ainsi que celui d’un formateur d'expressions 


МДӨР, écrit en МДӘР, à l'appendice D. 


| 
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6.1 QUE PERMET DE FAIRE LA MACHINE UCMC2 EN SORTIE ? 


La machine VCMC2 possède un nombre très restreint а" instructions 
spéciales de sortie qui se composent d'une instruction de sortie 
physique et de deux instructions manipulant les représentations 
externes des atomes, i.e. manipulant Les P-NAME des atomes (voir Le 
chapitre 2). 


La machine VCMC2 possède une instruction qui réalise Les sorties 
physiques. Ces sorties physiques ont toutes Lieu dans un flux unique 
de sortie de caractères (cette étude ne traitera pas des flux 
multiples en sortie). 

Cette instruction envoie un caractère dans le flux de sortie. Son 
opérande source <s> contient le code interne du caractère à 


transmettre. 


Voici la syntaxe de 1° instruction de sortie physique : 
DUT | «s» > flux de sortie 


Les 2 instructions suivantes manipulent La représentation externe des 
atomes : 


PLEN | (PLENGTH <s>) => <d> 
РМАМ (РМАМ <5>) э «d» 


PLEN transfère dans 1” орёгапде destination «d» la longueur de la 
représentation externe de l'atome contenu dars l'opérande source (i.e. 
Le nombre de caractères de son P-NAME). Cette instruction correspond 
à la fonction PLENGTH. 


PNAM force les caractères de la représentation externe de l'atome 
contenu dans  l'opérende source «s» dans des mots mémoire indexés par 
L'opérande destination «d» qui fait office de tampon. 


Ces deux instructions ont été ajoutées à la machine de base VCMC2 pour 


pouvoir simuler les fonctions de sortie sens avoir à tenir compte des 
représentations physiques des atomes. 
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6.2 L'ORGANISATION ET L'UTILISATION DU TAMPON DE SORTIE. 


Le système va utiliser dans les modules de sortie les objets internes 
suivants : 

- un tampon de sortie 

- un pointeur courant sur ce tampon 

- et des marges gauche et droite sur ce tampon 


Le tampon de sortie est utilisé par MISP pour composer 565 Lignes mais 
peut étre utilisé directement au moyen de fonctions spécifiques. 


| Tampon de sort ie | 


D 132 


Ce tampon fait office de "composteur" dans lequel МП Р va constituer 
une Ligne à imprimer. IL est constitué de 133 emplacemerits contigus 
de la mémoire. Се nombre est déterminé par la taille maximum d'une 
Ligne d' imprimante. L'accès aux différents éléments de ce tampon est 
réalisé en utilisant le registre d'index de la machine VCMC2. 


H 1 132 
n 


Ce tampon est disponible également en au moyen d'une fonction 
d'accès spéciale, la fonction OUTBUF, qui considère le tampon comme un 
vecteur. Le nom OUTBUF provient de DUTput ВОР fer. 


Fonction d'accès au tampon 


COUTBUF <n>) ou (OUTBUF «n» <c>) 


Cette fonction est de type 2SUBR. Son premier argument <n> (de type 
nombre) est l'indice de l'élément du tampon à considérer (le premier 
élément possède l'indice 0). Si le deuxième argument n'est pas 
fourni,  OUTBUF retourne le contenu actuel de l’élément du tampon sous 
forme d'un caractère. бі Le deuxième argument <с> est fourni, il 
remplace l'ancien contenu de l'élément du tampon et OUTBUF retourne 
cette nouvelle valeur 
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Le système tient continuellement à jour un pointeur sur ce tampon. Ce 
pointeur contient à tout moment la position du premier emplacement 
Libre du tampon. 


| ххххххххххххххххххххххххх | 


zone pleine zone vide 


pointeur courant 


Comme pour Le contenu du tampon lui-même, il est possible d'accéder а 
ce pointeur au moyen d'une fonction NLISPI spécialisée, la fonction 
OUTPOS. Le nom OUTPOS provient de OUTput buffer POSition 


Fonction d'accès au pointeur courant 


(OUTPOS) ou (OUTPOS <n>) 


Cette fonction est de type 1SUBR. Si L'argument «n» (de type nombre) 
est fourni, 11 devient la nouvelle valeur du pointeur courant sur le 
tampon de sortie. Dans les deux cas, OUTPOS retourne la valeur 
actuelle du pointeur courant sur Le tampon de sortie. 


zone pleine zone vide 


pointeur courant 


Le pointeur courant autorise une autre type de chargement du tampon en 
utilisant implicitement sa position. La fonction PRINCH réalise Le 
chargement à la suite de ce qui se trouve déjà dans le tampon. 


Fonction d'édition de caractères 


(PRINCH <c>) ои (PRINCH «c» <n>) 


Cette fonction, de type 2SUBR, va charger dans Le tampon de sortie «n» 
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fois (ou 1 seule fois si Le deuxième argument «n» n'est pas fourni) le 
caractère <c>. Après chaque chargement dans Le tampon, Le pointeur 
courant est actualisé. 51 après un chargement Le tampon devient 
plein, il est automatiquement vidé (au moyen de la fonction suivante 
TERPRI) et Le pointeur courant est reinitialisé en début de tampon. 


Une fois le tampon chargé au moyen des fonctions QUTBUF ou PRINCH, il 
faut pouvoir envoyer tous les caractéres du tampon dans le flux de 
sortie. C'est t'objet de la fonction TERPRI dont Le nom provient de 
TERninate PRint (ce qui indique bien que ce n'est qu'à l'exécution de 
cette fonction qu’il y a vraiment une sortie physique). 


Fonction de vidage du tampon 


CTERPRI) ` ou (TERPRI n) 


Cette fonction, de type 1SUBR, réalise les actions suivantes : 

- sortie physique (аи moyen de l'instruction OUT) de tous tes 
caractères contenus dans le tampon, de la position 0 (i.e. du début 
du tampon) jusqu'à la position du pointeur courant. 

- sortie «n» fois (ou 1 seule fois si l'argument «n» n'est pas fourni) 
du caractère fin de Ligne (au moyen de L'instruction OUT) 


- effacement de tout Le tampon 
- positionnement du pointeur courant à la position O (i.e. au début 


du tampon) 
Enfin le système a besoin de marges d'édition sur le tampon pour 
pouvoir décentrer toutes Les impressions. 


|-- édition ——oOII 


| |хххххххххххххххх s | | 


2 t Marge gauche | 


Pointeur courant 


Marge droite 
132 


Le chargement du tampon ne s'opérera qu'entre ces deux marges. Ces 
marges sont positionnées au moyen de deux nouvelles fonctions NLISP,, 
LMARGIN pour la marge gauche et RMARGIN pour la marge droite. 
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gege 


Fonctions de positionnement des marges 


CLMARGIN) | ou  CLMARGIN <n>) et 
CRMARGIN) ои  (RMARGIN <n>) 


Ces deux fonctions, de type ISUBR, vont pouvoir initialiser les 
valeurs des marges. Par défaut elles sont de 0 pour la marge gauche 
et de 72 (qui est la taille standard d'une Ligne sur un terminal) pour 
La marge droite. Ces fonctions retournent la valeur. ае la marge aprés 
modification. Si l'argument «n» n'est pas un nombre, la valeur de Le 
marge n'est pas modifiée, mais la fonction retourne tout de méme la 
valeur courante de la marge. 


L'appel (LMARGIN (+ CLMRRGIN) 3)) avance donc la marge de gauche de 
trois positions. 


Le tampon de sortie est donc organisé de la manière suivante : 


|J——— impression —— h 
|e—— édition -----------| 


e.» 
| {ххххххххххххххх | й | _ | 


1 
début du tampon 
position Q L bg? gauche 
CLMARGIN) Pointeur courant 
. COUTPOS) 


Marge droite 
(RMARGIN) 


fin du tampon 
position 1 


Certaines fonctions commme OUTPOS, OUTBUF, LMARGIN ou RMRRGIN testent 
si les positions fournies sur le tampon sont correctes. Au cas où 
elles ne le seraient pas un message d'avertissement est imprimé et le 
position courante est utilisée pour terminer la fonction. 

Le message d'avertissement est de la forme : 


an Débordement de ligne : suivi de l'argument incorrect. 
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Les listes sont éditées en utilisant la même notation qu'en entrée, 
(Les éléments d'une Liste seront séparés par des espaces et encadrés 
de parenthèses) mais où faut-il mettre des espaces ? 

L'insertion d'un espace entre les différentes unités syntaxiques 
(atomes, parentheses ouvrantes et fermantes et points) produit un bien 
étrange résultat : 


en effet l'expression М.Р) : 


(DE FOO (1) «COND C(NULL L) O) (Т... 
serait éditée : 


“ғо = um rs жә wiem, un тез ma | wem s veus 


Nous utiliserons donc Les règles d'espacements suivantes : 


élément suivant 


élément 
précédent 


l'expression NLD: 
(DE FOO (1) (COND ((NULL L) O) С... 


est donc éditée : 


(DE РОО (L) (COND (NULL 1) (O) € ... 
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6.4 LES REGLES DE COMPOSITION SIMPLE DES EXPRESSIONS VLISP. ` 


On peut imaginer plusieurs modes de composition des S-expressions : 


1) La plus simple consiste à éditer dans le tampon de sortie tous Les 
caractères de la représentation de l'expression МЄ Р. Ач 
débordement du tampon celui-ci est vidé au moyen de [а fonction 
TERPRI et l'édition se poursuit sur la Ligne suivante. Le grand 
défaut de cette composition est qu'un atome peut étre édité sur 
deux lignes, ce qui n'est ni esthétique ni facile à Lire et empéche 
totalement la relecture par la fonction READ qui considère Le 
changement de Ligne comme un séparateur. Cette composition en 
bloc, trés facile à réaliser, n'est donc jamais employée en МР). 


exemple de composition en bloc 


(DE GETREE1 (ARBRE CHEMIN) СІР ARBRE CIF (EQ (C 
AR CHEMIN) (QUOTE %)) (TERMINE (GET ARBRE (QUOT 
E #))) CGETREE1 (GET ARBRE (CAR CHEMIN)) (СОН C 
HEMIND)) (TERMINE NIL))) 


2) La deuxième méthode pour éditer des expressions МЇ va 
s'apparenter à la composition dite "еп drapeau" chez les 
typographes. Avant de charger un atome, on teste d'abord si 
celui-ci rentre en entier dans le tampon. S'il rentre, l’atome est 
édité dans (е tampon et le pointeur courant mis à jour. S'il ne 
rentre pas, le tampon est préalablement vidé dans le flux de sortie 
(au moyen de la fonction TERPRI) avant édition de l'atome dans un 
nouveau tampon. Pour réaliser ce test il faut connattre outre la 
position actuelle du pointeur courant, mais également ie nombre de 
caractères de la représentation externe de l'atome (i.e. de son 
P-NAME). Comme il est fastidieux de recalculer à chaque édition 
d'un atome la taille de son P-NAME, une nouvelle propriété 
naturelle а été introduite ; il s'agit du P-LEN (abréviation de 
Pname  LENgth). Cette propriété contient la taille du P-NAME de 
l’atome. | 


exemple de composition en drapeau simple 
(DE GETREE1 (ARBRE CHEMIN) CIF ARBRE CIF CEQ ( 
RRBRE 


QUO ( 
СОН CHEMIN))) (TERMINE NIL))) 
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—aaarnar PR аннараа анаарар 


3) Cette composition lisible par tous (utilisateurs et fonction READ) 
peut être encore améliorée : 


- La première amélioration consiste à n'imprimer Les parenthèses 
ouvrantes que si l'on est sur que l'atome suivant rentre également 
dans La Ligne. Ainsi dans Les appels de fonctions Les parenthèses 
ouvrantes associées aux noms de fonctions seront collées aux noms. 


- La deuxième amélioration de la composition en drapeau consiste à 
éditer tous les appels de la fonction QUOTE (i.e. Les appels de 
type (QUOTE <s>)) sous la forme '«s». IL faut toutefois prendre 
garde de n'éditer que les appels de la fonction QUOTE de cette 
manière et non pas de n'importe quelle Liste dont le CAR est 
l’atome QUOTE. Pour cela il suffit de vérifier que le CAR ае Le 


Liste à éditer est bien l'atome QUOTE et que Le CDDR de cette même 
Liste est bien NIL car La fonction QUOTE ne possède qu'un argument. 


exemple de composition en drapeau améliorée 


(ПЕ GETREE1 (ARBRE CHEMIN) CIF ARBRE (IF (EG 
(CAR CHEMIN) '2) (TERMINE (GET ARBRE '%)) 
(GETREE1 (GET ARBRE (CAR CHEMIN2) (CDR CHEMIND) 
) «TERMINE NIL))) 
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C'est ce type de composition que vont utiliser les principales 
fonctions de sortie des expressions jVLISP, Les fonctions PRIN et PRINT. 


Fonction d'édition simple 


(PRIN <81> ... <eN>) 


Cette fonction, de type FSUBR, va évaluer les différentes expressions 
<ә1> ... <eN> et les éditer Les unes à la suite des autres dans Le 
tampon de sortie. PRIN retourne en valeur la valeur du dernier 
argument édité. Les différentes éditions sont séparées entre elles 
par l'insertion d'un espace. 


Fonction d'impression simple 


(PRINT 481» ... <eN>) 


Cette fonction édite les valeurs des différentes expressions 
<81> ... <eN> d’une manière identique à la fonction PRIN mais effectue 
également un vidage du tampon (en utilisant la fonction TERPRI) après 
édition de la derniére valeur. PRINT retourne la valeur de la 
derniére expression éditée. 


l'appel (PRINT <e1> ... <eN>) est donc équivalent à 
L'appel (PROGI (PRIN <е1> ... <еМ>) (TERPRI)), 
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6.5 LES REGLES DE COMPOSITION RURNCEE DES EXPRESSIONS MISE, 


La composition en drapeau des fonctions PRIN et PRINT est adéquate 
pour éditer des expressions МР mais se révèle insuffisante : 


- si on ne désire voir qu'une partie de l'expression (comme dans Le 
cas des traces) : il n’est pas possible d’avoir une édition abrégée 
(ou condensée), 


- si on désire avoir une vision claire de la structure de contrôle de 
l'expression (comme dans Le cas des fonctions) : Les Lignes 
composées ne permettent pas une compréhension rapide des structures 
de contrôle de la fonction (voir Les exemples du paragraphe 
précédent). 


Nous avons donc introduit dans notre modèle deux nouvelles familles de 
fonctions : 

- Les fonctions de Limitation d' impression 

- les fonctions de belle-composition. 


6.5.1 Les limitations des impressions 


Les limitations d'impressions peuvent agir sur 3 paramètres : 
- le nombre de Lignes imprimées 
- Le nombre d'éléments de chaque Liste imprimée 


- Le profondeur d'impression de cheque Liste imprimée. 


A chacune de ces Limitations est associée une fonction : 


Fonctions de Limitations 


(PRINTLINE) оч (PRINTLINE <n>) 
(PRINTLENGTH) ou (PRINTLENGTH <n>) 
(PRINTLEUEL) où (PRINTLEUEL «n») 


Ces trois fonctions permettent d'accéder tant en lecture qu'en 
écriture (еп lecture si l'argument <n> n’est pas fourni, en écriture 
s'il l’est) aux trois paramètres qui permettent de Limiter Les 
impressions : 


1) PRINTLINE contrôle le nombre de lignes imprimées. Si te nombre de 
Lignes à imprimer est plus grand que «n», l'impression du reste de 
L'expression est abandonnée. 


>) PRINTLENGTH contrôle Le nombre d'éléments de liste imprimés. Si le 


nombre d'éléments de Liste imprimés est plus grand que <п>, 
U impression s'arrête et les fonctions impriment des points de 
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3) 


suspension suivis d’une parenthèse fermante. 


PRINTLEUEL contrôle la profondeur maximum d'impression (i.e. le 
nombre de parenthèses ouvrantes non encore refermées). Si ce 
nombre est atteint, les fonctions d'impression éditent (е caractère 
spécial "8" et l'impression continue au même niveau. 


Voici des exemples d'utilisation des fonctions de Limitations 
d'impressions. D’autres exemples seront donnés au paragraphe 6.7. 


non HÚ ә 


(SETQ L 
(ET (( 100) CD) 

(IF (ZEROP n) 1 (SELF (SUBI n) (CONS n 1))))) 
(1234567891011 12 13 14 15 16 17 18 19 20 21 22 
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 
63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 

83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100) 


(PRINTLINE 2) 
2 
L 
123456789 10 11 12 13 14 15 16 17 18 15 20 21 22 
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 29 40 41 42 


(PRINTLINE 1000) 
1000 


(PRINTLENGTH 3) 
3 


'(A BCDEF) 
(ABC...) 


” (A (B C D E) F) 
(A BC...) ...) 


(PRINTLENGTH 1000) 
1000 | 


(PRINTLEVEL 3) 
3 


” (A (B (C (D (E) F) G) H) 1) 
(A (B (C & G) H) 1) 


(PRINLEVEL 1000) 
1000 
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6.5.2 La belle composition (ou PRETTY-PRINT) 


n QUO 


Le besoin d'avoir un type de composition approprié à 
expressions NLISPI de type fonction se fait sentir dés qu 


dépassent quelques Lignes de composition en drapeau. 


L'édition 
e les fonctions 


Ce type de composition (qui est appelé PRETTY-PRINT dans 


LISP ien [GOLDSTEIN 731) doit être à même de faire 


structure de contrôle de la tonction. 


` 


ressortir Lë 


Le moyen le plus employé consiste à utiliser des alignements 


renfoncements droits. 

Dans ce type de composition t'édition d'un appel 
consister à : 

- éditer une parenthèse cuvrante 

- éditer à la suite te nom de la fonction 


- puis pour chacun des arguments change" de Ligne en a 
gauche de trois positions. Ces arguments sont ádité 


_ éditer une parenthèse fermante. 


Voici en М9) la fonction réalisant ce type d'édition š 


LME SOIR а PV Á= | 
H 


(DE PP (s) 

CIF (ATOM s) | 
(PRIN s? | 
(PRINCH "C ` 
(PP (NEXTL ei) ЕЕ 
(LMABGIN Ce (MARGID 2) | 

j 
$ 


(WHILE (LISTP 5) 
(TERPRI) 
(РР (NEXTL 


в))) 
(LMARGIN C- (LMARGIN) 3)) 
CPRINCH '2"33) 


et voici un exemple de composition utilisant cette fonction 


DE 
GETREE1 
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Cette composition trés aérée permet de montrer la nécessité d'avoir en 
réalité plusieurs types de composition suivant la fonction à éditer. 
En effet il est clair qu'il faut disposer les trois premiers arguments 
de la fonction DE (qui correspondent respectivement à DE, suivi du nom 
de la fonction, suivi de la Liste d'arguments) sur la méme ligne et 
tous les arguments suivants sur des lignes différentes (correspondant 
aux différentes expressions du corps de la fonction), de même il est 
clair qu'il faut imprimer l'argument de la fonction CAR au même niveau 
que l'atome CAR lui-même (car cette fonction n'a jamais plus d'un 


argument). 


Nous avons défini 6 modèles d'édition qui recouvrent toutes Les 
éditions des fonctions. standards. 


Modèle Ü : dénote l'absence de modèle. L'appel de La fonction est 
édité en utilisant une compositon en drapeau améliorée vue 


précédemment. 


Modèle 1 : c'est Le modèle de type PROGN. Chaque argument de Le 
fonction est édité sur une ligne séparée aprés renfoncement 
de la marge gauche de 3 positions. 


modèle 1 exemp Le 
(nom-de- La- fonct ion (PROGN 


ergument 1 (PRINCH " ") 
(PRINCH ".") 


ergument N) (PRINCH " ")) 


c'est le modèle de type IF. Le premier argument est édité 
sur la même ligne que le nom de la fonction et tous Les 
autres arguments sont édités un par Ligne comme dans le 
modèle précédent. 


odè L 


modèle 2 ` exemple 


(non-de-la-foncticn argument-1 LIF <2ERCP n) 
argument- еу) 
z n 


ergument-N) 
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EPP 


Modèle 3 : c'est le modèle de type DE. Les 2 premiers arguments sont 
édités sur La même Ligne que le nom de la fonction et tous 
(ев autres arguments sont édités un par ligne comme dans le 
modéle précédent. 


modèle 3 exemple 


(nom argument-1 argument-2 (DE РОО (n1 n2) 

argument-3 (PRINT n1 n2) 

E (+ n1 n8) 
ergument-N) 


Modèle 4 : ce modèle n'est utilisé que pour éditer (а fonction COND 
qui possède une syntaxe spéciale décrivant les clauses. It 
faut éditer chacune des clauses dans le modèle du  PROGN 
(Modèle 1). 


modèle A 


clause-1 ” toutes Les clauses 
ias sont éditées en 
clause-N) ` I utilisent Le modèle 1 


Modèle 5 : c’est Le modèle réservé de la fonction SELECTO. Le premier 
ergument (dans ce cas le selecteur) est édité sur la même 
Ligne puis les autres arguments (i.e. tes clauses) sont 
éditées de 1а même manière que dans le modèle 4 (celui de 
Le fonction COND). 


modèle 5 
(SELECTO argument 


clause-1 toutes les clauses 
... sont éditées сп. 
ctause-N) utilisent le modèle 1 
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Modèle B : c'est le modèle réservé de La fonction SETQ multiple. 
Chaque couple d'arguments (i.e. chaque couple nom/valeur) 
est imprimé sur une ligne séparée. 


modèle Б 


(SETQ 


argument-1  argument-2 


argument-N-1  argument-N) 


Cet ensemble de modéles défini, il nous reste à voir comment associer 
aux atomes fonctions des modéles particuliers. 

Les fonctions du PRETTY-PRINT étaient originellement écrites еп MISA 
(voir 1°аррепаісе D). La sélection du type de modèle s'opérait en 
effectuant une comparaison du nom de la fonction avec des listes de 
noms associés à chaque modèle (cette comparaison utilisait en général 
Le fonction MEMQ). Cette solution trés lente n'est pas envisageable 
pour un PRETTY-PRINT écrit en langage machine (si ce n'est par 
macro-génération de tous les tests du MEMO). 


Pour rendre Le temps de recherche indépendant du nombre de fonctions 
utilisant Le méme modèle, chaque fonction possédait sur sa P-liste un ` 
numéro de modèle d'édition sous un indicateur spécial (en général 
PRETTY). La recherche du numéro de modèle s'effectuait donc au moyen 
d'un GET, qui pour être en général plus rapide que Le MENA n'en 
coutait pas moins de 2 doublets par modéle spécifié. 


Pour résoudre le problème d’accès et de place allouée au numéro des 
modèles, nous avons ajouté une nouvelle propriété naturelle aux 
symboles atomiques, le P-TYPE (qui signifie Print-TYPE) qui va 
contenir Le numéro du modèle à utiliser pour éditer ce symbole en tant 
que fonction. 

L'accès au P-TYPE est immédiat (à une indexation prés) et la place 
occupée est minimisée (dans La plupart des implantations ce P-TYPE 
occupe un octet). | 

Pour accéder à ce nouvel attribut atomique, nous avons introduit une 
nouvelle fonction, la fonction PTYPE. | 


ï 


Fonct ion d'accès au P-TYPE 


(PTYPE <a>) ои  (PTYPE <a> <n>) 
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Cette fonction, de type 2SUBR, permet d’accéder au P-TYPE du symbole 
atomique <a>. бі Le 2ème argument numérique <n> est fourni, il 
devient Le nouveau P-TYPE du symbole <a>. Dans tous Les cas La 
fonction PTYPE retourne sous forme d'un nombre Le P-TYPE actuel du 
symbole <a>. 


Nous avons inclu dans notre modèle d’implémentation un ensemble de 
fonctions standards qui utilisent ces P-TYPEs et possédent tous les 
modèles de composition décrits ci-dessus. Le texte de ces fonctions 
est donné à l'appendice E. | 


Ces fonctions vont permettre d'éditer des expressions MIS, quelconques 
ou bien des F-VAL en utilisant la belle composition. Toutes les 
expressions complexes de cette étude ont été composées en 
utilisant ces fonctions. 


Fonction d'édition avancée 


(PPRIN <s>) 


Cette fonction, de type 1SUBR, va éditer l'argument «s» dans le tampon 
de sortie. PPRIN retourne en valeur la valeur de l'argument. 


Fonction d'impression avancés 


(PPRINT <s>) 


Cette fonction édite la valeur de l'expression <s> d'une maniére 
identique à la fonction PPRIN mais effectue également un vidage du 
tampon (en utilisant la fonction TERPRD aprés édition. РРВІМТ 
retourne également la valeur de l'expression éditée. 


l'appel (PPRINT <s>) est donc équivalent à 
l'appel (PROGI (PPRIN <s>) (ТЕНРНІ)) 
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6.6 LES MACRO D'EDITION. 


Pour permettre de résoudre les problèmes de sorties spéciales, la 
fonction d’édition PPRIN n’est pas figée, mais bien au contraire ne 
contient que les options par défaut de l'édition. Notre modèle permet 
en effet d'associer à chaque symbole atomique une MACRO d'édition 
spécialisée qui est une fonction qui sera utilisée à la place du 
modèle d'édition standard. | 


Ces MACRO d'édition sont définies au moyen de la fonction de 
définition des MACRO d'édition, DMP. 


Fonction de définition de MACRO d'édition 


CDMP «at» <svar> <e1> ... «eN») 


ПМР associe au symbole atomique <at> une MACRO d'édition. Cette MACRO 
est rangée sur la P-LIST du symbole «at» sous l’indicateur PRETTY. 

La liaison des arguments de ce type de fonction est identique aux 
MACRO de l’évaluateur i.e. c'est l'appel tout entier де La MACRO 
d'édition qui est lié à la première variable du spécificateur de 
variables <svar>. Сез MACRO d'édition ont un mode de lancement qui 
diffère du lancement des MACRO de l’évaluateur : Si durant une 
édition la fonction PPRIN rencontre une liste dont [е CAR est un 
symbole atomique qui possède une définition de MACRO d'édition, alors 
cette liste n'est pas éditée normalement mais la MACRO d'édition est 
invoquée à (а place. C'est cette MACRO qui réalisera l'édition. IL 
faut noter que cette MACRO d'édition peut se trouver à n'importe 
quelle profondeur de l'objet à éditer. 


. Si la fonction PPRIN n'éditait pas les appels de la fonction (QUOTE 
<s>) sous la forme '<s>, il serait très facile de le réaliser au moyen 
de La définition de la MACRO d'édition suivante : 


COMP QUOTE (L) 
CIF (СООН 1) 
(PRIN 1) 


(PRINCH "'") 
(PPRIN (CADR 12992 


De même pour réaliser l'édition de la fonction (LIST 81 ... eN) sous 
la forme [el ... eN], il suffit de définir la MACRO d'édition 
suivante : 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 152 / 362 


Page 151 


LES SORTIES 


Ces MACRO d’édition vont également être utilisées pour restituer en 
sortie certains macro-caractères d’entrée. 


Soit le МАСВО-сагасїёге d'entrée | qui possède la définition 
suivante : 


(OMC "|" O L'BAR (RERD) 1) 


Sa restitution en cas d'édition par la fonction PPRIN est réalisée par 
(а MACRO d'édition suivante : | 


(DMP BAR (l) CPRINCH "|") (PPRIN (CADR 199) 


Ainsi 


est transformé en : 
( (BAR ai) 


ui évalué livre : 


x 
qui est imprimé : 
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gg 


6.7 LES COMPOSITIONS SPECIALES. 


Ke 


L'utilisation des 16 fonctions de sortie de notre modèle permet de 
réaliser n'importe quel type d'impression spéciale. Ces impressions 
peuvent être de type : | 

- aigébriques (tels les impressions en GCOL, MLISP ou RLISP) 

- documentaires (tel Le CROSS-REFERENCE en МР] 10 [CHAILLOUX 78c1) 

- symboliques (telle la notation RAINBOW IGREUSSAY 79al) 


Abordons le problème de l'impression des objets circulaires ou 
partagés. Ces objets sont construits très facilement à partir de 
Listes existantes en utilisant les fonctions de modifications 
physiques telles que NCONC, RPLACA ou RPLRCD. 

Le classique (МСОМС <і> <і>) est le moyen le plus facile de fabriquer 
une Liste circulaire en forçant dans Le CDR du dernier doublet de La 
Liste <і> un pointeur sur le début de cette méme liste <l>. 


Etudions La structure de liste fabriquée par la séquence suivante à 


CPROGN 

(SETQ L ' (A ©) C) 
(RPLACA (CDR L) (CDDR L5) 
ils (COUR Lj L) 


Ii n'existe pas de représentation externe VLA de cette structure. 
L'utilisation de іа notation vue au chapitre 2 perret de donner une 
représentation de cette liste : 


A 
{ x:€ 


z C 
А vie к 7:6 
z x 


IL existe une autre représentation des Listes dans laqueile chaque 
doublet de liste est contenu dans une double boîte dont la partie 
gauche contient la composante CAR et la partie droite la composante 
CDR. Voici cette même structure représentée dans cette notation. 
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L'utiiisation des fonctions de Limitation d'impression pour autant 
qu'elles stoppent L'impression пе permettent pas de voir quels sont 


les doublets partagés. 
avec PRINTLINE = 2 


L = (A (C A (CA (CA (CA СА (СА (СА СА (C À (CA 
(A ACE A (СА (СА (C A (СА (СА (CA (СА СА C 


avec PRINLENGTH = 6 
L = (A (C A (C A (C ...) 2200 —À "T 


evec PRINLEVEL = 2 
L = (A (CA &C Â &CA&CA&CA &CA&CAS&C A&CA 


http: info- | 
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11 faut donc disposer de fonctions spécialisées pour imprimer les 
Listes circulaires ou partagées. Voici Le texte de la fonction 
d'édition CPRIN et de la fonction d'impression CPRINT d'une telle 
Liste. A l'occurrence d'un doublet partagé ou d'une Liste circulaire, 
L'édition s'arréte et des points de suspension sont imprimés suivis 
d'une parenthèse fermante, ce qui permet de continuer l'impression. 


; Fonctions d'impressions circulaires simples ; 


(DE CPRINT (U) 
: Fonction d'impression de l; 
(CPRIN L) 
Шан 


(DE CPRIN (L) 
; Fonction d'édition de l; 
(CPRIN1 l Q)) 


(DE CPRIN1 а vus) 
onction auxillaire ; 
vus qu sn la liste des objets déjà visités ; 
LET (LU) 
CIF САТОМ 1) 
n ciones peuvent étre partagés ; 


En cas de Liste ; 
PRINCH SCH) 
ger (ISTP 9 


IF (MEMQ L Wes? 


C’est un objet e visité ; 
EXIT (PRIN nosed") 

C’est un objet nouveau : 
NEWL vus 1) 

Récurse sur les CAR ; 


ve pvc 99 


7” 
en 
m 
C 
es Ti 
^ 
= 
m 
> 
- 


CIF L CPRINCH " ")))) 
CIF (NULL 1) 
de Liste se termine bien ; 
; C'est une paire pointée ; 
(PRINCH ".") 
CPRINCH " ") 


(PRIN 02) 
CPRINCH ")"))))) 


En utilisent cette fonction, la Liste L fabriquée au début du 
paragraphe peut s' imprimer : 


(PRINT L) г” CA (С...) ...) 
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Ces fonctions permettent donc d'imprimer n'importe quelle structure de 
Liste. Une amélioration notable consiste à référencer (au moyen de 
numéro entre accolades) les doublets partagés. | 


` Voici les fonctions CCPRIN et CCPRINT réalisant de telles impressions. 


; Fonctions d'impressions circulaires avec références ; 
(DE CCPRINT (1) 

; Imprime l’objet 1; 

( IN L) CTERPRI) U) 


(DE CCPRIN CO 
; Edite 1 ob Jet l; 
CCCPRINT ï O ())) 


(DE CCPRIN1 (L vus vusplusieurs) 
; 1ёге passe qui recherche les objets partagés. ; 
s Ils sont rangés dans : vusplusieurs ; 
: vus : contient la Liste de tous les objets visités ; 


) 
WHILE (LISTP U) 
CIF T { vus) 


CIF (МОТ (MEMQ | vusplusieurs)) 

| СМЕМ vusplusieurs 1)))) 

(МЕЙІ. vus 1) 

(SELF (NEXTL 0000) | 
(SETO vus (9) 
; 2ème passe qui édite à proprement parlé en utilisant ; 
; la Liste vusplusieurs fabriquée durant la lére passe ; 
(LET CL D 

s L doit être locale ; 

CIF САТОМ L) 
(PRIN 19 


CPRINCH " <") 
CWHILE (LISTP U 
CIF (МЕМО L vusplusieurs) 
PROGN 
CPRINCH "{") 
; le no de l'objet partagé est l'inverse ; 
; de sa position dans vusplusieurs ; 
(PRIN (L Н (МЕМО 1 vusplusieurs))) 
CPRINCH "1"))) 
CIF MEMO l vus) 
C'est un objet s visité ; 
EXIT (PRIN "...2") 
C'est un objet nouveau ; 
МЕМ. vus 1) 
(SELF (NEXTL 19) 


pate gate 
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CIE L CPRINCH " ")))) 


CIF L 
(PROGN 
СЕНІМЕН ".") 
CPRINCH " ") 
(PRIN 122) 
(PRINCH ")"))))) 


Cette fonction imprime une liste circulaire de La manière suivante : 
(SETQ X '(ñ B C)) CG <A BLU) 


(CCPRINT (NCONC ХО) XP (tTM B C 113...) 


En utilisant cette même fonction d'impression, la liste L fabriquée 
au début du paragraphe peut s' imprimer : 


(CCPRINT L) EF UNA HAC (11...) (23...) 
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CHAPITRE 7 
LES CONCEPTS AVANCES 


DE ` L' INTERPRETATION 


Ce chapitre va compléter la description de notre évaluateur donné au 
chapitre 4. Nous y verrons un nouvel interprète, plus complexe, qui 
va permettre : 

- d'évaluer itérativement certaines classes de récursions terminales 

- d'implémenter les fonctions de contrôle dynamique EXIT et SELF 

- d'implémenter Les fonctions de définition dynamique WHERE et ESCRPE 
- de traiter les variables fonctions 

- d'utiliser Le concept de CHRONOLOGIE. 


` 


Le texte complet de cet évaluateur est donné à l'appendice F. 


Cet évaluateur va mettre en jeu une structure de contrôle plus 
puissante constituée d’une pile polymorphique. 


7.1 LA STRUCTURE DE LA PILE. 


Le pile a été utilisée jusqu’à maintenant d'une manière très simple : 
les opérations d'accès de la pile étaient obtenues au moyen des 
instructions machine VCMC2 : PUSH, POP, TOPST et XTOPST. Seul te 
dernier élément de (а pile était consultable. L’implémentation des 
structures de contrôle dynamique va induire l'utilisation d’une pile 
poiymorphique dans laquelle il va être possible de consulter outre Le 
sorret de pile, des zones plus profondes de La pile. Cette 
consultation ne doit bien évidemment pas étre destructive. 
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7.1.1 Structure de la pile polymorphique 


Cette pile polymorphique consiste à construire dans la pile elle-même 
des blocs de contrôle. Ces blocs de contrôle sont des zones de la 
pite qui ne sont pas gérées comme une pile et qui sont liées entre 
elles de la manière suivante : 

- l'adresse du dernier bloc de contrôle construit se trouve dans la 
variable PBIND 

- chaque bloc de contrôle contient l'adresse du bloc de contróle 
précédent | 

- l'adresse du bloc précédent Le premier bloc de contrôle construit 
est 0. 


Voici le schéma de cette pile polymorphique : 


bloc de contrôle N 
ancien PBIND : 


pile normale 


eo s 6 9 0 8 9 9 9 € 9 s 5 9 9" г € 4 ө э 9 «* à 9 9 9 9 5 9 э ө 


*- PBIND actuel 


- 


bloc de contrôle N-1 
ancien PBIND : 


' pile normale ` 


ns one b ue u эз эъ = э e oa s e ha... э ә э °° 


bloc de contrôle 1 | , | 


ancien PBIND : 


pile normale 


Ces blocs de contrôle vont avoir une durée de vie comparable aux 
éléments de La pile : Les blocs seront construits (empilés) et 
détruits (dépilés) en observant une technique de LIFO stricte. C'est 
ce qui différencie notre structure de contrôle des piles spaghetti 
(BOBROL 73b] voire macaroni [STEELE 771 dans lesquelles l'allocation 
de la pile s'effectuait par blocs dynamiques et necessitait du méme 
coup l'emploi d'un récupérateur spécial lourd et encombrant. 
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7.1.2 Structure d'un bloc de contróle 


ы MES k 1 i — e 


Un bloc de contrôle est un ensemble de données structurées 


construit dans les occasions suivantes : 

(entrée d'une fonction de type EXPR/FEXPR/MACRO 
(rentrée d'une fonction WHERE ou ESCAPE 

L'entrée d'une fonction LETF 

La création d'une nouvelle CHRONOLOGIE 


Q^ 00” Die 


Dans tous ces cas, Les données contenues dans ces blocs 
n'auront pas la même structure; on est donc amené à typer ces blocs 


au moyen d'un numéro de type de bloc. 


Ce numéro de type de bloc doit étre trés facilement 


c'est pourquoi il occupe toujours un emplacement fixe à l’intérieur de 


chaque bloc de contróle : dans notre implémentation 


trouve toujours en première position dans le bloc 


directement par PBIND. 


Cette position privilégiée permet également d'accélérer Le module de 


destruction des blocs de contrôle (le module UNB I ND: ). 
positionner le pointeur de pile en tête du bloc de 


Ce module doit 


réaliser un aiguillage vers un sous-module dépendant du type du bloc. 
Ceci est aisément réalisé au moyen des 2 instructions 


suivantes : 


UNBIND: SSTRCK € 
JUMPX 


e PBIND) 

CTUNBIND) , TST 

TUNBIND: DATA adresse si bloc de 
DATA adresse si bloc de 
DATA adresse si bloc de 


La première instruction positionne le pointeur de pile 
dernier bloc de contrôle construit et La seconde réalis 


dans la table des étiquettes TUNBIND еп fonction du 
dépilé. 


е l'aiguillage 


Cheque sous-module doit repositionner la variable PBIND sur le bloc de 


contrôle précédent. 
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7.1.3 Réalisation des blocs de contrôle 

Dans notre modèle d'implémentation, les blocs de contròle se 
construisent avec des instructions d’empilement PUSH ou ХТОР5Т. 
Toutefois la nécessité de construire facilement des blocs de contrôle 
dans la pile se fait de plus en plus sentir et aujourd'hui des 
machines apparaissent avec de nouvelles instructions spécialisées dans 
(а manipulation de ces blocs de contrôle. Par exemple le nouveau 
micro-processeur de MOTOROLA Le MC68000 IMOTOROLA 73], disponible en 
France à la fin de l’année 1979, possédera le couple d'instructions 
spécialisées LINK et UNLNK. Ces instruction permettront de réaliser 
directement les opérations de fabrication d'un bloc de contróle dans 


la pite. 


Voici la description de ces instructions pour lesquelles reg est un 
registre quelconque (l'équivalent du pointeur PBIND dans la machine 
ҮСМС2) et n un nombre entier : 


LINK reg,n réalise d reg 
> 
Sp + N > > Sr 


UNLNK reg réalise SSTACK reg 
PDP rec 


A moindre titre les instructions CALLG et CALLS du VAX11/780 [DEC 78е} 
permettent des appels de procédures complexes mettant en jeu ; 

- le pointeur de pile lui-même 

- le registre contenant le lien vers le bloc de contrôle précédent (le 


Frame Pointer) 
- et un registre pointant sur le bloc argument (qui est une partie du 


bloc de contrôle). 
Ces instructions pourront bien évidemment être utilisées à Le 


construction des blocs de contrôle. 
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7.2 LE BLOC DE CONTROLE DE EVAL 


те ——M—— ne RS ----- ra a 


Nous avons vu au chapitre 4 que la fonction interprète EVAL devait 
sauver à chaque appel de fonction de type EXPR/FEXPR/MACRO La partie 
de l'environnement (i.e. les couples variable-valeur) qui était 
modifiée par l'appel de la fonction. Cet environnement était sauvé 
dans la pile. Dans ce nouvel interprète, l’environnement va être 
sauvé dans un bloc de contrôle. 


Voici La structure du bloc de contrôle fabr iqué par EVAL à l'entrée 
d'une fonction de type EXPR/FEXPR/MACRO : 


UNB IND: <-- SP (pointeur de pile) 


4--- PBIND type du bloc de contrôle 


pointeur sur la fin du bloc 


variable N 
valeur N 


— š environnement seuvé 


variable 1 
valeur 1 


сс MARK сс fin des couples 


PBIND précédent 


Ce bloc de contróle contient, en plus de l'environnement sauvé : 

- Le type du bloc de contrôle (qui est ici le type. D). pointé par 
PBIND | 

- 1а F-VAL de la fonction à exécuter 

- un pointeur sur la fin du bloc de contróle (ce pointeur est utilisé 
pour accéder directement au dernier mot empité AVANT la fabrication du 
bloc de contrôle) | 

- un pointeur sur le bloc de contrôle précédent. 


Toutes ces informations supplémentaires vont être utilisées pour 
implémenter Les possibilitées nouvelles de l’évaluateur : 

- interprétation itérative des récursions terminales, 

- implémentation des fonctions EXIT et SELF. 
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7.3 DIFFERENTS TRAITEMENTS DE LA RECURSIVITE. 


Dans certains cas de récursions terminales de fonctions de type EXPR, 
L’ interprete effectue dynamiquement un traitement particulier qui 
Lui permet d'interpréter itérativement les appels récursifs de type 
{Note 1] : 

- post-récursions normales (ou NPR) 

- post-récursions mutuelles (ou CPR) 

Les post-récursions enveloppées ne sont pas traitées dans cette étude. 


L'interprétation itérative d'appels NPR ou CPR va s'effectuer sans 
consommation de ressources de type pile ou doublets de Liste. 

Dans la fonction suivante (qui cherche le dernier élément d'une Liste) 
l'appel récursif de la dernière Ligne est un appel récursif terminal. 


(DE FOO (L) 
CIF (NULL (СОН L2) 
(CAR L) 


(FOO (CDR L)))) 


Les appels de la fonction РОО consommeront le méme espace pile et 
n'utiliseront aucun doublet de Liste, quelque soit la taille de la 
Liste L. 


La puissance de cette méthode réside dans la recherche des récursions 
terminales qui est réalisée dynamiquement dans l'interprète par une 
consultation extrêmement rapide de l’état de la pile. 


L'interpréte doit pouvoir effectuer deux tests à l'évaluation d’une 
fonction de type EXPR : 

- le test de position terminale 

- Le test de récursion 


— ee quee a a 
(Note 1] s typologie аа été introduite par P. GREUSSAY 


[GREUSSAY 77] et une approche formelle de l'élimination de ces fausses 
récursivités est donnée dans [DURIEUX 79]. 
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7.3.1 Le test de position terminale 


L'évaluation est en position terminale si on trouve dans le sommet de 
pile l'adresse du module qui délie Les blocs de contrôle (i.e. 
L'adresse UNBIND:). En effet (е bloc de contrôle doit être défait au 
retour de la dernière évaluation. Ce test est donc trés simple, il 
faut toutefois prendre garde au niveau des fonctions appelant 
l'interprète de ne pas masquer cet état terminal : la dernière 
évaluation d’une fonction (L'évaluation de la valeur de la fonction) 
doit être appelée par une continuation | 


[JUMP (EVAL)] ou [JUMP CEUCAR)1) (Note 1}. 


Cette précaution doit s'appliquer à tous les séquenceurs і.е. aux 
fonctions PROGN, AND et OR. 


Voici Le séquenceur principal PROGN qui appelle ta dernière évaluation 
au moyen de Le continuation [JUMP (EUCRR)3) : 


CDR A1,A2 
FLIST A2, L JUMP СЕУСЯН) 1) 
A2, s [CALL CEUCAR) 1) 


PUSH A 
POP  f1,,LJUMP (PROGN) 1) 


Qui appelle bien la dernière évaluation au moyen d'un [JUMP (EUCRR)] 
eprés avoir Libéré la pile. 


L'écriture suivante де Le fonction OR est correcte mais ne permet plus 
de tester la position terminale d’une évaluation car au moment de la 
dernière évaluation la pile n'est pas vide mais contient le CDR de ta 
Liste des arguments (i.e. NIL) xs | 


HMM HALLE 


(Note 1) cette continuation est un branchement vers l'instruction : 


EUCAR: CAR A1,A1, [JUMP СЕЧА.) Ј 
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PSN 


A1 
A1, , [RETURN] 


A1, TST, [CALL СЕУСЯН) 1 
81,,LJUMP COR1)1 
R2, , [RETURN] 


Pour permettre le test de position terminale il faut écrire ce module 
de la manière suivante : 


81, A2 
A2, , [JUMP (EUCAR) 1 
AZ, [CALL (EUCRR) 1) 


fil, [JUMP (081319 
B1,,LJUMP COR) 1) 
R2, , CRETURN] 


7.3.2 Le test de récursion 


Une fois Le test de position terminale effectué, il faut réaliser Le 
test de récursion. Cette récursion peut être : 

- une récursion normale (une fonction s'appelle elle-même) 

- une récursion mutuelle (une fonction appelle une autre fonction en 
position terminale qui rappelle une autre fonction en position 


terminale qui .... et qui appelle la première fonction en position 
terminale). 


11 s’agit donc d'une suite d'appels répondent au schéma : 
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(DE F001 €...) ... (Ғ002 ...)) 
(DE F002 0...) ... (FOO03 ...)) 


(DE FOON-1 €...) ... (ҒООМ T 
(DE FOON С...) .. (F001 ...)) 


Voici un exemple d'appels récursifs mutuels tiré de  [GREUSSAY 771 
рр. 179. PERMS est une fonction qui imprime la suite des permutations 
de t’intervalle [1,nl en ordre lexicographique. | 


DE PERMS (n) 
(F O NIL)) 


(DE F (niv в) 
CIF (< niv n) 
(H (+ niv 1) (CONS 1 e)) 
(PRINT (REUERSE e)) 
(G niv (CAR е) (CDR e)))) 


(DE G (niv x ei 
CIF (= x n) 


8 
(G (- niv 1) (CAR в) (CDR ei) 
FINI) 


(H niv (CONS (* x 1) өз?) 


(DE H (niv 8) 
CIF (Eva (CAR e) (CDR e)) 
(6 niv (CAR ei (CDR eil 
(F niv &0)) 
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Tous les appels croisés des fonctions F, G et H sont de type récursifs 
mutuels donc l'évaluation d'un appel de la fonction PERMS nécésitera 
Le même espace pile quelque soit la valeur du nombre n. 


Le test de récursion simple est réalisé par comparaison de ta F-VAL de 
La fonction à évaluer avec la F-VAL de la dernière fonction évaluée et 
dont La F-VAL se trouve dans le bloc de contrôle précédent. 

Le test de récursion mutuelle est réalisé en répétant ce test pour 
tous les blocs de contróle qui se trouvent en position terminale. 


7.3.3 Réalisation de l'interprétation itérative 


La réalisation de l'interprétation itérative des récursions terminales 
et mutuelles est effectuée dans notre modèle avec un minimum 
d'instructions supplémentaires : les tests de position terminale et 
de récursion пе s’opèrent qu'APRES avoir construit dans la pile le 
bloc de contrôle et réalisé les Liaisons (i.e. avant de lancer 
L'évaluation du corps de la fonction telle qu'elle est décrite au 
chapitre 4). | 


Voici le contenu de la pile et la position des différents pointeurs 
APRES la Liaison des arguments. Le contenu de la pile est identique à 


celui obtenu au paragraphe 4.6.4 seul [е pointeur РВІМ à été 
préalablement empilé. 


Dé — | le nom de {a variable N | 
son ancienne valeur 
le nom de la variable 1 
son encienne valeur 
МААК: 
ancien РВІМО 


SP & A3 — adresse de retour de EURL 


Le registre Al contient la F-VAL de la fonction. La réalisation de 
l'interprétation itérative est réalisée par NON-REMISE А JOUR du 
pointeur de pile qui va rester positionné sur l’adresse de retour de 
EVAL. L'ébauche de bloc de contróle construite dans la pile va donc 
être perdue (et La place occupée rendue à la pile). 
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Voici іе code де l'implémentation de l'interprétation itérative : 


; Test de récursion terminale (normale ou mutuelle) 
; des fonctions de type 


EUEXPB: 
Ter, CUNBIND) , E JUMP (EUEXPN)] ; pas terminal 
JUMPX (CTEUEXD,TST ; aiguillage sur le type de bloc 


type 0 : bloc EXPR/FEXPR/MACRO 
type 1 


TEUEXL: ‚ bloc EXPR/FEXPR/MACRO 
EQ a1 E E JUMP CEVEXP9)1 ; c'est récursif 


SSTACK TST [JUMP (EUEXPB)1 ; passe à la fin du 

; bloc et test le bloc précédent 
EUEXPB: ; c'est itératif 
SSTRCK R3 ; ajuste la pile 
COR A1,A1, [JUMP CPROGN) 1 s et réalise un JUMP ! 


appel normal 

repasse en début de bloc 

empile l'adresse de fin du bloc 
PUSH R1Ë1 empile (а F-VAL 

PUSH |! empile Le code du bloc 

STACK (ев PBIND) sauve le pointeur de pile 

CDR 81,01, L JUMP (EXEC) 1 s évalue le corps 


EUEXPN: 
SSTRCK A4 
PUSH A3 


° we ve vo «о Фе 


Les performances de notre implémentation sont excellentes cer les 
tests demandent : 

- 1 instruction si l'appel n'est pas terminal 

- 3 instructions pour déterminer si un appel est une récursion 
terminele 

- Зжп instructions pour déterminer si un appel est ипе récursion 
mutuelle (n étant le nombre d'appels de fonctions terminales 
différentes de la fonction de l'appel). 


Ces tests ralentissent donc l'évaluateur de manière insignifiante. 
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Cep autorise deux nouvelles fonctions de contrôle dynamique, 
compatibles avec la structure de іа pile : 


- La contruction EXIT fNote 1] qui permet de sortir d'une fonction de 
type EXPR/FEXPR/MACRO. 


- La construction SELF (Note 2} qui permet de rappeler la dernière 
fonction invoquée de type EXPR/FEXPR/MACRO. 


Ces deux nouvelles fonctions vont étre aisément implémentées du fait 
de la structure du bloc de contrôle fabriqué par EVAL à l'entrée des 
fonctions de type EXPR/FEXPR/MACRO. 


7.4.1 Implémentation de la fonction EXIT 

La fonction EXIT permet de retourner de la dernière fonction appelée. 
C'est donc l'équivalent de la fonction RETURN des anciennes formes 
PROG. Ainsi La fonction FINDINUMBER retourne en valeur le premier 
nombre d'une liste, ou bien O si la tiste n'en contient pas. 


(DE FINDTNUMBER (i) 
СИНЕ KLISTP 1) 
CIF CNUMBP (CAR 12) 


(EXIT (СЕН 19) 
И (SETQ 1 (CDR 1)))) 


L'utilisation de La fonction EXIT permet de retourner une valeur еп 
abandonnant tout ce qui était en cours, ici ta fonction WHILE. 
L'implémentation de cette fonction est donc évidente : il suffit de 
vider la pile de tout ce qui se trouve au dessus du dernier bloc de 
contrôle construit puis dans ce nouvel état de la pile, d'évaluer la 


ER ER, 


{Note 1} cette construction est apparue pour 1a première fois en 
NLISP-10 [CHAILLOUX 78c] sous le nom de LESCRPE. 


(Note 2} cette construction а été introduite par P. GREUSSAY 
[GREUSSAY 77] 
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valeur qui doit être retournée par la fonction. It faut toutefois 
tester s’il existe bien un bloc de contrôle dans la pile (i.e. si au 
moins une fonction de type EXPR/FEXPR/MACRO) a été appelée. 


EXIT: EQ '0,Ce PBIND), [JUMP СЕХІТЕВ) 1) 


SSTRCK (@ PBIND) 
PUSH CUNBIND) , , [JUMP СРАОСА) 1) 


La prerière instruction teste l'existence d'un bioc de contróle, La 
seconde positionne le pointeur de pile sur le type du dernier bloc de 
contrôle contruit et la troisième prépare le retour de la fonction et 
évalue із valeur à retourner. 


Cette irpiémentation permet en outre d'utilise 
forcer une évaluation itérative d'un appel réc 
Ainsi cars Le fonction FINDENUMBER qui ret-.-- ie ier nombre trouvée 
dans la pius profonde sous-liste d'une lisis pires. $ 


(DE FINDENUMBER (1) 
et 9 


D 
((LISTP (CAR FIND2ZNZ"MSER (CAR 129299 
(CNUMBP (CAR СЕН 1)))) | 
(SETQ 1 (CDR 1) 


L'appel (EXIT CFINDENUMBER (CAR L))) est, ocre un retour de Le 
fonctic^, un forçage d’interprétation itérative de 
(FINDENUMBER (CAR 1)). 4 

En effet ie pointeur de pile est mis au nivea. du dernier bloc de 


contrôle construit dans la pile AVANT évaluation de la valeur 
retournée, gui est donc TOUJOURS évaluée en position terminale. 
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7.4.2 Implémentation de la fonction SELF 


Cette fonction permet de rappeler la dernière fonction invoquée de 
type EXPR. Nous réaliserons l’ implémentation de cette fonction par 
recherche de la F-VAL de la fonction dans le dernier bloc de contrôle 
construit par EVAL puis par l'évaluation de cette fonction avec Les 
arguments transmis à SELF. 


Voici le code de l’implémentation de la fonction SELF. Le traitement 
de l'erreur SELFER n'est pas donné. 


2 ; sauve le pointeur courant 
Lë PBIND) , A4 s récup début de bloc 


04, "D, EJUMP (SELFER) 1 ; erreur fatale! 
(TSELF) , TST 


; pointe sur nouveau bloc | 
; aiguillage sur type de bloc 


(SELFL) Type 0 : bloc EXPR 
Type 1 : 


; récup la Руа! empilée 
R2 : revient au début du SELF 
R4,,LJUMP C(EUEXP)1) ; empile La nouvelle FVAL 
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7.5 LES FONCTIONS DYNRMIGUES. 


Les fonctions définies dynamiquement sont une particularité majeure de 
notre modèle. Il est en effet possible de réaliser des définitions 
temporaires de n'importe quel type de fonction. Ces définitions 
temporaires sont obtenues par Liaison dynamique des propriétés 
naturelles F-VAL et F-TYPE des symboles atomiques associés aux 
fonctions. | 


Cette Liaison dynamique est réalisée d’une manière identique à Le 
Liaison dynamique des variables : il y a fabrication d'un bloc de 
contrôle dans la pile (ici le type du bloc de contrôle est 1) qui 
contient les anciennes valeurs des propriétés naturelles permettant 
ainsi de rendre fluides les fonctions elles-même. Un nouveau type de 
bloc de contróle est nécessaire car la construction et la destruction 
de ce type de bloc est différente de celles des blocs de contrôle 
fabriqués par EURL. 


Voici la structure de ce nouveau type de bloc de contrôle : 


| ш а, 
ancien PBIND 


«€—  PBIND 


nom de la fonction 
=. ancienne F-VAL 
*. ancien F-TYPE 


Et voici Le module de destruction d'un tel bloc : 


(е PBIND) repositionne PBIND 
684 enlève Le nom 
restaure l'ancienne F-VAL 


TST, A4 
TST Ad, [RETURN] ; restaure l’ancien Ғ-ТҮР 


Deux fonctions MIS vont construire de tels blocs : 
- le fonction de définition dynamique WHERE 
- la fonction d'échappement ESCRPE. 
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7.5.1 Implémentation de la fonction WHERE 


WHERE permet de redéfinir dynamiquement (i.e. ‘d’associer 
dynamiquement à un symbole atomique) une fonction de n'importe quel 
type. Cette définition sera active le temps de l'évaluation d'une ou 
plusieurs expressions et à la fin de l’ évaluation L'ancienne fonction 
essociée au symbole sera restaurée. 


11 existe deux formes d'appel de la fonction WHERE : 


` (WHERE (<at> <FTYPE> <FUAL>) <е1> ... <eN>) 


(WHERE (<at> <FURL>) <81> ... <eN>) 


Les deux vont associer au symbole atomique <at> une définition de 
fonction. La valeur de définition de la fonction est <FUAL> qui est 
évalué et le type de la fonction est <ЕТУРЕ> dans la première forme et 
EXPR implicitement dans la deuxième forme (cette forme abrégée a été 
ajoutée dans le système car étant la plus utilisée). 

Cette Liaison réalisée WHERE va évaluer les expressions <81> ... <et 
et retourner en valeur la valeur de la dernière évaluation. Toutefois 
avant de retourner à  l'appelent, l’ancienne fonction associée à 
l’atome va être restaurée. 


Voici la réalisation de la fonction WHERE dans notre modéle : 


WHERE: CAR R1, A2 s A2 + la nouvelle définition 
CDR 81,TST s sauve le corps à exécuter 
CAR ; TST s sauve le nom de la fonction 
CDR A2,A2 s A2 + nouvelle fonction 
CRR ‚^1 s Al < Le nouveau F- -iyos 
TNUMB A1, [JUMP (WHERE1)1 ; il y a un FTYP explicite 
NOP Big (EURL)1 ; évalue la F-val 
Қаны алый CWHERER)] ; par défaut РТҮР=7 : EXPR 
WHERE1: PUSH : sauve Le ,F-type 
CDR АМ AI, [CALL (ЕУСЯН)1) ; évalue La F-val 
POP ва" s Aá < le F-type 
WHERE2: MOUE A1,A3 3 АЗ < (а F-val 
POP Re s A2 + le nom . 
POP A1 s Al + іе corps 
ИНЕНЕЗ: ; Liaison dynamique avec : 
; Al < ie corps à exécuter 
; «€ le nom de la fonction 
: A3 < La nouvelle F-VAL 
; AG < Le nouvel F-TYP 
FTYP R2,TST s sauve v ancien F-TYP 
Re, T -$ sauve l'ancienne F-VAL 
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PUSH A2 s sauve le nom de la fonction 
SFTYP A4,A2 ; force le nouveau {уре 

SFURL A3,A2 ; force la nouvelle VAL 

PUSH x PBIND) ; sauve l'adresse du bloc preced. 
PUSH ; type du bloc 


actualise Le nouveau PBIND 


STRCK (a PBIND) 


PUSH (UNBIND) , , [ JUMP CPROGM) 1 
i ; prépare le retour et exécute le corps 


7.5.2 Implémentation de la fonction ESCAPE 


L'implémentation de la fonction ESCAPE (Note 1} s'apparente dans notre 
modèle à celle du WHERE. En effet il s'agit là encore d'une 
définition dynamique. Toutefois Le nouveau F-TYPE de la fonction est 
un F-TYPE spécial, (dont la valeur est 10) qui indique que la fonction 
est une fonction d'échappement. 


ESCAPE: MOVE — "10,04 F-TYP de type ESCAPE 
CAR 1, DG 


nom de la fonction 
NE ‘A1 corps exécuter 
MOUE рг: аз, ï JUMP C(WH2RES3) J ; r-VAL = ie nom 


L'évaluation des fonctions d'échappement est réalisée par EVAL. Voici 
le texte du module spécialisé qui traite ce type de fonction dans 
Lequet UNBINP est Le nom du module qui détruit le dernier bloc de 
contrôle construit dans la pile (ce module se différencie du module 
UNBIND car il suppose que fid contient l'adresse de retour du module). 


{Note 1} on trouvera une description de cette fonction dans 
CREUSSAY 77] pp. 148-151. 
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sEvaluation d'un ESCAPE 
А2,, [CALL (PRDGN) 1 ; sauve le nom du ESCAPE 
fe ; récupère le nom 
: délie un bloc 
'D, се PBIND) , L JUMP CERESC) 1 s il n'y en a plus !?! 
(е PBIND) ; pile en début de bloc 
$ récupère le sommet de 
A3,'1,[ JUMP ( s c'est un bloc WHERE/ES АРЕ 
CÉVESE 3 ` аз, COUP P. CONBI NP) 1 s delie ce bloc simplement 


СЕМЕ5С4) ,R3, [JUMP CUNBINP)1 ; délie ce bloc 
Re,R4,LJUMP CEVESCT) 1 


; cen 'est pas la bonne fonction 
; s LRETURN] : c’est tout bon 


L'utilisation des blocs de contrôle permet donc de gérer avec une 
grande facilité la restauration de l’environnement. Cette 
restauration va demander la destruction d'un nombre quelconque de 
blocs de contrôle. 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 176 / 362 


LES CONCEPTS AVANCES DE 1” INTERPRETATION Page 175 


—as—u[aasÑaasasaasUaa EE 


7.6 LES URRIRBLES FONCTIONS. 


IL existe dans l'interprète [MIS des variables internes qui 
contiennent des valeurs susceptibles d’être consultées ou modifiées 
par l'utilisateur. Par exemple, la base de conversion des nombres en 
entrée utilisée dans l'interprète doit pouvoir être lue et/ou 
modifiée, de même que la Longueur d'une Ligne en sortie. 


Ces variables internes, peu nombreuses (notre système n’en possède 
qu’une quinzaine) contrôlent principalement Les mécanismes 
d'entrée/sortie. L'accès à ces variables internes augmente 
considérablement la puissance et la généralité du système. 


Lorsqu'il s’agit de donner accès, tent en consultation qu'en 
modification, à сез variables internes, deux stratégies sont 
disponibles : 


1) Faire de ces variables internes des variables MISE, Dans се саз Le 
système suppose que la valeur de ces variables internes se trouve 
dans la C-UAL des variables MIP correspondantes. 

Côté utilisateur, la consultation et la modification de ces 
variables est très aisée, il suffit d'accéder à Leur C-UAL. Toutes 
les propriétés des variables sont conservées et en particulier leur 
fluidité. 

Appelons OBASE, la variable interne contenant la valeur de la base 
de numération des nombres en sortie.. Et voici pour illustrer cette 


stratégie une fonction qui imprime son ler argument <s> dens Le 
base de numération OBASE, fournie en 2ème argument. 


Définition : 


(DE PRINT-BASE-X (<s> OBRSE) 
(PRINT <в>)) 


Utilisetion : 
«SETO n 1000) 


CPRINT-BASE-X n 8) 
(PRINT-BASE-X n 11) 
(PRINT-BASE-X n 16) 
OBASE 
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Du fait de La fluidité de la variable OBASE, au sortir de cette 
fonction d'impression, l'ancienne valeur de OBASE est restaurée. 


En revanche côté système, l'accès est très ralenti car il faut 
utiliser la C-VAL de l'atome et cette C-VAL contient toujours un 
pointeur sur un objet МІ?) qu'il faut convertir еп objet 
manipulable par La machine (ce qui est particulièrement lent dans 
Le cas des atomes numériques). Toutefois le gros défaut de cette 
stratégie est d'obliger Le système à contrôler la validité de la 
valeur de la variable. En effet l'appel (SETA OBRSE 0) en plus de 
provoquer une erreur de la machine pour tentative de division par 0 
(car les conversions en sortie se font par divisions successives), 
rendra le système incapable par la suite d'imprimer de nouveaux 
nombres. L'effet est parfois encore plus désastreux comme dans le 
cas où les impressions doivent se réaliser dans un tampon de 
Longueur nulle voire négative, ce gui empêche toute impression y 
compris celle du message d'erreur. 


Ce problème de contrôle de validité des variables internes se pose 
donc de façon très aigue et le système se doit de vérifier la 
validité des valeurs actuelles avant tout accès aussi bien en 
lecture qu'en écriture car les modifications peuvent intervenir à 
n'importe quel moment. 


2) Une deuxième stratégie consiste à associer à ces varizbles internes 
des fonctions _ d'accès particulières qui vent manipuler les 
variables internes. Ces fonctions d’accès permettent la 
consultation et [а modification d'une variable interne suivant un 
processus commun : La consultation se réalise par appel de Le 
fonction sens argument, la modification par eppel de ia fonction 
avec 1 argument évalué qui devient la nouvelle valeur de Le 
variable interne. 


(f onct ion-d' acces) : lecture 


Cfonction-d'eccès valeur) : — Écriture 


En cas de modification des variables, ces fonctions testent Le 
validité de l'argument. ce qui évite de placer le système dans un 
état critique. Ces tests de validité ne se font qu’à chaque 
demande de modification explicite (i.e. qu’à chaque écriture). 
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Aucune de ces deux stratégies n’est idéale. La première ralentit trop 
Le système et {а seconde ne permet plus d'avoir des variables internes 
fluides. 


Pour approcher Les possibilités de la stratégie utilisant des 
variables, il est possible de macro-générer à chaque appel de type 
modification d’une fonction de variable interne (appelons La <varint>) 
par la valeur <e>, une séquence d'appels simulant (а fluidité des 
variables : 


sauvetage de l’ancienne valeur de La variable 
interne «varint» dans la variable WLISP] <varint>. 


(SETQ <varint> (<varint>)) 
modification de la variable interne par «e». 
(<узгіпї> <e>) 


exécut ion d'un programme avec la valeur 
de іа variable interne modifiée. 


| restauration de l'ancienne vateur de Le 
variable interne. | 


(«varint» <varint>) 


Voici la MACRO МЕРІ réalisant cet enchainement : 


(ОМ URRINT СО 
CRPLACB L 
['LET 
ІССАЯОН 1) ІСОЯЯОН L 11 


[CCARDR 1) CCRDRDR. L 
PROG1 


[' 
['PROGN . (СООН 4). 
[CCRADR 1) ССААОЯ 122123) 
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Redéfinissons la méme fonction que précédemment : 


(DE PRINTBRSEX (s n) 
CURRINT СОВАЅЕ ni (PRINT 8)))))) 


Appel de la fonction : 


(PRINTBASEX 1000 16) г” GES 
Modification de la fonction : 
CFURL 'PRINTBASEX) ES 


((s n) 
CLET COBRSE COBASE)) 
(OBRSE n) 
(PROG (PROGN (PRINT в) ) 
COBRSE OBRSE)))) 


Cette macro-génération, qui montre bien les limites de la stratégie de 
fonctionnalisation de l’accès, laisse à désirer : elle est lente mais 
surtout n'a pas la puissance de la Liaison des variables fluides. 
L'utilisation de [а variable de même nom que la fonction ne permet 
plus les modifications imbriquées et les anciennes valeurs de la 
variable interne ne sont pas restaurées si des fonctions de contrôle 


dynamiques telles des fonctions ESCRPE sont invoquées. 


C'est pourquoi nous avons donné à notre modéle un nouveau type de 
fonctions, les variables fonctions, qui permettent dans une stratégie 
de fonctionnalisetion des variables internes, d'avoir la souplesse de 
{а Liaison des variables fluides. 


Une variable fonction est une fonction d'accès à une variable interne. 
Elle est une fonction à part entière et peut par conséquent être 
redéfinie. 

Pour réaliser la fluidité de cette variable fonction une nouvelle 


fonction de type FSUBR à été crée, la fonction de liaison des 
variables fonctions, de nom LETF : 


(LETF (<varfnt> <e>) <81> ... «eN») 


dans laquelle <varfnt> est le nom d'une variable fonction, <e> sa 
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nouvelle valeur et «81» ... <eN> une suite d'expressions à évaluer en 
séquence. LETF va lier la variable fonction en effectuant les 4 
étapes suivantes : 


1) sauvetage de la valeur de la variable fonction, i.e. la valeur de 
L'évaluation de (<varfnt>) 


2) évaluation de («varfnt» <e>). 


3) évaluation de la séquence <81> ... <eN>, la valeur de LETF sera La 
valeur de l'évaluation de <eN> 


4) restauration de l’ancienne valeur de la variable fonction en 
évaluant (<varfnt> la valeur calculée en 1). 


Ce mécanisme est le méme que celui de la fonction LET (voir te 
paragraphe 4.2) pour les variables et c'est ce qui a donné Le nom 


LETF. 


La réalisation de cette Liaison nécessite la création dans la pile 
d'un nouveau type de bloc de contrôle (le type 2) qui comprend : 


UNBI ND: 


PBIND + e 
PBIND du bloc précédent 


nom de la variable fonction 
( son ancienne valeur ) 


өйт et, df, geen, ed. 
GA OO 
er Ung? op an a 


{1} UNBIND: est l'adresse mémoire du module qui réalise la destruction 
du bloc de contrôle. 


(2) PBIND pointe sur te type du bloc qui est ісі le type 2. 


{3} comme tous Les blocs de contrôle celui-ci contient le pointeur sur 
Le bloc de contrôle précédent. 


(4) іе bloc contient Le nom de la variable fonction 


(S) ainsi que l’ancienne valeur de la variable fonction, sous la forme 
d'une liste d'un élément. 
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Ce bloc doit être réalisé par la fonction LETF doit voici l'écriture 


en VCMC2 : 


LETF suppose qu'à l'appel : 
Al < ((<varfnt> <e>) Eis ... <eN>) 


; Sauvegarde de l'évaluation de ( <varfnt> ) 


СЕТЕ: A1, A2 
A2, TST 
R1,TST 
A2, TST 


12, R2 
NIL,R1,LCRLL (EURLFUD 1 


Appel de la variable fonction 
avec l'argument fourni 


NIL,R1 

Re 

R3 

A1 

A2 e 
AS, , [CALL (EURLEL J 


Fin de préparation du bloc de contrôle 
et exécution du corps du LETF 


A1 
S PB IND) 


(e PBIND) 
(UNBIND),,[ JUMP CPROGN) 2 


La destruction de ce type de bloc est toutefois spéciale car il faut 
appeler une nouvelle fois la variable fonction avec l'ancienne valeur 
sauvée dans le bloc de contrôle, Un problème se pose pour évaluer une 
derniére fois cette fonction. En effet, l’ancienne valeur de la 
variable fonction a été sauvée dans Le bloc de contrôle mais une 
simple re-évaluation de la Liste composée du nom de la fonction et de 
la valeur sauvée provoguera (si la variable fonction est de type SUBR 
ou EXPR) une deuxième évaluation de l'argument. 
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Pour éviter ce phénomène, nous utiliserons à la place де EVAL le 
module APPLY (Note 1} qui reçoit dans R1 le nom d'une fonction et dans 
A2 une Liste d'arguments prêts à être employés par La fonction. 


Voici comment délier un bloc de type 2 : 


restaure l’ancien PBIND 

+ le nom 
adre ret <> (val) 
sauve tout (APPLY) 
sauve la valeur 
A3, A2 A2 e 1а (val) 
A4,A1, [CALI]. (ñPPLY)1 ; Avanti 

; retourne la valeur du corps 

A2, [RETURN] ; libere A2 et rentre 


(@ PBIND) 
A4 


° 
, 
° 
, 
° 
, 
. 
, 
. 
% 
. 
9 


{Note 1} ce module qui était le module principal d'évaluation des 
fonctions еп LISP 1.5 a presque disparu dans notre modèle (il est 
avantageusement remplacé par les modules EUEXP, EUFEXP, EUMAC et EUESC 
de qui ne consomment pas de doublets de liste) et n'est plus 
utilisé que dans le cas des fonctionnelles et du LETF. 
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7.7 LA NOTION DE CHRONOLOGIE. 


Pour résoudre le problème des traces et des pas-à-pas, nous avons 
inclus dans notre modèle un dispositif général permettant de 
solutionner les problèmes d’interruptions internes de l’évaluateur 
(cette étude ne traitera pas des interruptions externes). 


Pour cela notre modèle dispose d’une multitude  d’évaluateurs 
potentiels différenciés par un numéro d’ordre de création, un numéro 


de chronologie. 


Ces évaluateurs vont être appelés : 


- par l'utilisateur au moyen de la fonction interprète EVAL dont le 
deuxième argument est Le numéro de CHRONOLOGIE que l'on veut voir 
affecter à cette évaluation : 


(EURL expression chronologie) 


- automatiquement par l'interprète, il s'agit alors d'interruptions 
internes. 
Ces interruptions sont déclenchées par l'interprète lui-même dans 
les cas suivants : 
- appel de la boucle principale du système (TOPLEUEL) 
- erreur à l'interprétation (ERROR) 
- trace de l’évaluateur (STEPEURL) 

Ligne pleine en sortie (EDL) 

apparition d'une fin de fichier d'entrée (EOF) 


et d'une manière générale à chaque fois que l'interprète doit 
effectuer quelque chose de non prévu. 


Le traitement d'une interruption se fait par invocation d'une fonction 
propre à chaque type d'interruption, dans un nouvel évaluateur dont La 
chronologie est la chronologie précédente incrémentée de une unité. 
Afin de restaurer l’ancienne valeur de la CHRONOLOGIE, le changement 
d'évaluateur va construire un bloc de contróle d'un type nouveau, le 
type 3 qui va contenir l’ancienne valeur de La chronologie, la 
variable EURLCH, ainsi que l'état d'un autre indicateur système EURLST 
(cet indicateur qui contient l'état courant de la trace sera vue au 


paragraphe 7.7.4.). 
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Voici ta structure de ce nouveau type de bloc de contrôle : 


е 
ancien РВІМО 


«—  PBIND 


ancien E 
ancien EVALST 


Voici Le texte en VCMC2 du traitement d’une interruption interne : 


‚ Lancement d'une interruption interne 
Al < la лсо) 
A2 < la liste d arguments (à 1a APPLY) 
; change de CHRONOLOGIE 41 


prépare un bloc 3 

sauve l'état de la trace courante 
sauve la chrono jogie courante 
sauve l'ancien PBIN 

type da up oe z 3 
BIND) new PBI 

p EURLCHD ; Ber 3 de CHRONOLGIE 
EE, с (APPLY)1 ; et appel APPLY 


(@ EURLST) 
(& EURLCH 
се PBIND) 


-. N. me we а Ve 


Le valeur retournée par la fonction associée à l'interruption devient 
la valeur de 17 interruption. 


7. c 1 Fonctions manipulant les CHRONOLOGIES 


Notre modèle possède plusieurs fonctions de manipulation de 
CHRONOLOGIES. Le numéro de la CHRONOLOGIE courante est accessible au 
moyen de la variable fonction CHRONOLOGY. 


| | | 
| «CHRONOLOGY) lecture (CHRONOLOGY <n>) écriture | 
| | | 


Deux fonctions permettent d'utiliser ces CHRONOLOGIES comme des 


super-structures de contrôle : 
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(EX! TCHRONOLOGY 481» ... <eN>) 


CFINDCHRONOLOGY «n» <81> ... <eN>) 


La première permet de sortir de la CHRONOLOGIE courante et fait office 
de retour d'interruption interne (sous la forme d'un super- -EXID, et 
la seconde permet de retourner une valeur à La CHRONOLOGIE de numéro 
«n». Dans ces 2 cas la valeur retournée est la valeur de la derniére 
évaluation i.e. celle de <eN> qui a lieu dans l’environnement de 
l'appel de ces fonctions. 


7.7.2 La boucle principale de l’évaluateur 


La première interruption de l’évaluateur est engendrée par la boucle 
principale de l'interprète. 


En effet cette boucle est réalisés eu moyen des 4 instructions 
suivantes : 


der bens ; CHRONOLOGIE - 0 


PLEVEL, A : le nom de 1a fonction 
NIL, A2, [CALL CITSOFT) 1° ; la liste d'arguments 
, s C JUMP (MRIN1)J ; retourne à l'interprète 


Ii est donc tout à fait possible de redéfinir la fonction TOPLEUEL. 


Classiquement cette fonction réalise : 


s E 


PRINT (EVAL CREAD)))) 
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7.7.3 Les erreurs 

En cas de détection d'érreur l’évaluateur appelle la fonction ERROR en 
passant par le dispositif d'interruption interne (i.e. l'évaluation 
de cette fonction a lieu dans un évaluateur dont La CHRONOLOGIE a été 
incrémentée). Le premier argument de cette fonction contient le type 
de l'erreur et les suivants des arguments spécifiques dépendant du 
type de cette erreur. La valeur retournée par cette fonction devient 
la valeur de l'expression ayant provoquée l'erreur. 


Le premier exemple que nous allons voir est une fonction qui évalue 
son argument sans jamais provoquer d'erreur : 


(DE EURL-sans-serreur (forme) 
(WHERE (ERROR) (EUñL forme))) 


En cas d'erreur dans l'évaluation de (а forme, cette fonction retourne 
NIL. L'utilisation de la forme WHERE permet d'empécher le traitement 
normal des erreurs uniquement durant l'évaluation de la forme forma. 


Voici un autre exemple de la redéfinition de La fonction ERROR qui 
permet de construire une fonction testant si une forme peut étre 
évaluée sans erreur par EVAL. Dans le cas ou EVAL produirait une 
erreur cette fonction retourne Le valeur NIL, et dans le cas contraire 
elle retourne la valeur de l'évaluation. Cette dernière valeur est 
incluse en premier élément d'une Liste pour pouvoir distinguer la 
valeur NIL correspondant à une évaluation de cette méme valeur 
indiquant une erreur à l'évaluation. 


(DE EURL-teste-si-erreur (forme) 


(WHERE (ERROR '(() (erreur))) 
(ESCAPE erreur LOL forme)1))) 
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7.7.6 Les traces 


Notre modèle possède un mécanisme interne de trace. Ce mécanisme 
appelle La fonction STEPEURL (qui est une interruption interne) avec 
comme argument La forme qui devait être évaluée, à chaque. appel 
interne de l’évaluateur. La mode trace est représenté dans le système 
par une variable interne, EURLST. 


Ce mode trace est activé en donnant une valeur non-NIL au 3ème 
argument de la fonction interprète EVAL : 


(EURL expression chronologie trace) 


A l'évaluation d'un appel de ce type, la trace n'est pas active pour 
la première évaluation de expression sous peine de faire boucler EVAL 
(Note 1} mais uniquement pour tous les appels internes qui se 
produiront durant l’évaluation de expression. 


La trace La plus simple consiste simplement à imprimer tout ce qui est 
évalué par EVAL. Voici le texte de cette mini-trace : 


(DE MINITRRCE (exp) 
(WHERE 


(STEPEURL ' ((forme) 
(PRINT 'T forme) 
(EUAL forme О T))) 

(STEPEURL exp))) 


s exemple d'utilisation 
? CMINITRACE ' (CONS (CAR '(ñ)) (CDR '(ñ B)))) 
(CONS (САВ '(ñ)) (CDR '(ñ B))) 
CCAR ! (0) 


(A) 
(COR '(ñ B)) 


{Note 1) ce mécanisme est donc équivalent à celui rencontré dans les 
machines disposant d'interruptions : l'effet des instructions EI 
(validation d'interruption) de 1'Intel 8080 ou bien RTI (retour du 
sous-programme de trace) du PDP/11, ne se fera sentir qu'après 
exécution de l'instruction suivante pour éviter de faire boucler 
l'unité centrale. 
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Notre modèle prend en compte les interférences possibles entre les 
fonctions traçantes et les fonctions tracées : en effet les fonctions 
de type EXIT ou SELF deviennent ambigues car l'interprète ne sait pas 
de quelle fonction il s'agit, de la tragante ou de la tracée. Pour 
résoudre ce problème, nous avons du préciser la définition des 
fonctions EXIT et SELF de la manière suivante : 

La fonction EXIT retourne de la dernière fonction appelée dans la 
CHRONOLOGIE courante et la fonction SELF reapplique la dernière 
fonction appelée également dans Le CHRONOLOGIE courante. 


Comme Les fonctions traçantes et tracées sont exécutées dans des 
CHRONOLOGIES différentes, toute ambiguité est donc levée. 


Voici une nouvelle fonction de trace qui permet de tracer des 
fonctions contenant des appels de SELF ou de EXIT. Cette fonction de 
plus imprime à chaque étape Le numéro de La CHRONOLOGIE courante et la 
profondeur des appels de EVAL : 


(DE NTRRCEUARL (exp) 
(LET. (deep 0) 


(STEPEURL ' ((forme) 
ETQ d ер ) 
(PRINT (CHRONOLOGY) deep forme) 
(SETQ IT (EVAL forme CSUBI CHRONOLOGY) ) T)) 
(PRINT '<— CCHRONOLOGY) deep IT) 
(SETG deep (SUB1 deep)) 


IT)) 
(EURL '(STEPEURL exp) (8001 (CHRONOLOGY))3)3)) 


La fonction suivante TF est une illustration du fonctionnement de 
cette trace : 


(DE ТЕ (L) CIF (NULL L) (EXIT 'OK) (SELF (CDR L)))))) 


? F usia ' (TF , LA B))) 
1 (ТЕ ' СА B)) 
' (ñ В) 


(A B) 
(IF (NULL L) CEXIT 'OK) (SELF (CDR L))) 


1111 
гогого 
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L 

Ee 

CIF (NULL L) CEXIT 'ОК) (SELF (СОН L))) 
(NULL L) 

L 

(B) 


NIL 
(SELF (CDR L2) 
Wasi L) 


(B) 
NIL 

CIF (NULL L) CEXIT 'OK) (SELF (CDR L))) 
(NULL L) 

L 

NIL 

T 

(EXIT ' OK) 
DK 


— sch sch cc cf — ech ech ech ech md sch zc sch ec ech ch md om vc med ech ch med and and end — ed cius ad 
-mO SOIT NU NU NJ C0 00 N 07-03 ММ О OUI 01/09 A (ЛЛ A £20) & 2 02 


QTTTITITITTILITTILLTTILITTILITTEL 


Enfin Le dispositf de trace de notre modèle permet d’implémenter des 
dispositifs d'évaluation incrémentale. La fonction STEP décrite 
ci-dessous va évaluer une expression mais avant et après chacune des 
évaluations internes, Le contrôle est rendu à l'opérateur qui peut 
indiquer à chaque étape des actions à entreprendre. Ces actions, 
décrites par un caractère, peuvent être : 

=v: voir l'expression à évaluer (cette action est automatique à 
cheque étape). 

- >: continuer la trace en séquence. 

- <: évaluer l'expression courante sans trace et se remettre en mode 
trace à la fin de l'évaluation de celle-ci. 

- =: Lire et évaluer une expression quelconque (ce qui permet de 
contrôler les valeurs des variables ou d'évaluer n'importe quelle 
forme) et repasser en mode trace. | 

-. arrêter le mode trace et retourner la valeur de l'expression 
tracée. | 
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(DE STEP (exp) 
(LET t (deep 0) Ctypit T) (IT NIL)) 


(STEPEURL 'CCforme) 
(SETQ deep (ADD1 deep) ) 


(LET (cmd a 
CIF t 
(S ÉCTO cmd 
(v (PRIN '-» deep forme '||) 
(TERPRI -1) 


(SELF (RERDCH) 3? 
(> (SETA ІТ (EVAL forme CSUB1 CCHRONOLOGYOS) T))) 
(< (SETQ IT (EVAL forme (SUB1 CCHRONOLOGYO) NIL))) 
= (PRINT (EVAL CRERD))) (SELF ' v2) 
` (/. (SETO tvpit (9) 
(EURL forme (6081 (CHRONDLOGY)))) 
(T SELE 'v))) 
(SETQ ІТ (ЕНІ. forme (SUB1 (CHRONOLOGY)))))) 
(LET ed ! v) 


el Gg спа 
(v (PRIN '«- deep IT '||) 
(TERPRI -1) 
(SELF CRERDCH)) 
(= (PRINT (EVAL (ër: (ADDI (CHRONOLOGY) ))) 
(SELF "wii 
(/. (SETO typit)) 
« 


( 
C(SELF 'v))))) 
(SETQ deep (SUB1 deep?) 


IT)) | 
(EURL 'CSTEPEURL exp) (ñDD1 CCHRONDLCGY) 22223000200) 


Le fait de pouvoir récupérer TOUS les appels internes de  i'évaluateur 
permet, outre les traces, une modification complète de celui-ci. 
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Voici pour illustration la fonction EURL-NIL-si-UNDEF qui se comporte 
comme la fonction interprète standard EVAL mais qui ne provoque pas 
d'erreur à l'occurrence de l'évaluation d'une variable indéfinie, se 


contentant uniquement de forcer la valeur NIL à la variable et 
d'imprimer un message d'avertissement : 


(DE EURL-NIL-si-UNDEF- (expression) 
(WHERE 


(STEPEURL ' ( (forme) 
CIF COR (LISTP forme) (NUMBP forme) (BOUNDP forme?) 
X(EURL forme О T) 
` (PRINT "Je donne e valeur NIL à :" forme) 
^ - : - (SET forme NIL))) 
(STEPEURL expressíon))) 


Voici quelques utilisations de cette fonction en supposant 


que les variables VARFOO1, VARFOO2 et VARFOO3 sont indéfinies 


(EURL-NIL-si-UNDEF 'URRFOO1) 
M: Je donne la valeur NIL а : URRFOO1 


(CEURL-NIL-si-UNDEF '['ñ URRFOO? 'B URRFOO031) 
Je donne la valeur NIL а: URRFOD2 
Je donne la valeur NIL à : URRFOO03 

(ñ NIL B NIL) 


On notera là encore la redéfinition dynamique de la fonction STEPEURL, 
qui permet de n'effectuer le test de variable indéfinie que dans la 
portée dynamique de іа fonction EURL-NIL-si-UNDEF. 
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7.8 ANALYSE DE L' INTERPRETE. 


Enfin voici le tableau de passages dans Les différents modules de 
l'interprète (donné à l’appendice F) après avoir effectué Le test 
(donné à l’appendice 6). La première colonne de pourcentages est 
donnée par rapport au nombre d'appels de l’évaluateur, et la seconde 
est donnée par rapport au nombre total d'instructions exécutées durant 
L'évaluation du test. 


Ce tableau nous a permis d'établir les fréquences d'utilisation des 
différents modules de EURL données au paragraphe 4.4. 


Passage aux étiquettes 


Nb de passages dans EUñLñ1 : 4647 
Nb d'instructions exécutées : B0202 


1 DD1 = 57 1.98 € D d 
2  APPEX1 = 28 08 2 D 2 
3 PPEX2 = 41 0.88 % 0 d 
4 APPEX3 = 13 0.28 % 0 2 
5  APPEXP = 1 0.28 % D d 
B  APPLIN = 114 2.45 % 0.14 % 
7 APPLY = 124 2.67 2 0.15 ? 
8 APPLY2 = Ü 2 O 2 
8  APPLYL = 10 0.22 % 0 % 
10 APPLYS = 10 0.28 % 0 2 
11 CADA = 8 0.2 2 0 Z 
12 CAR = 210 4:52 9 0.26 % 
13 СООН = 5 0.11 % D 2 
14 CDR = 451 9.71 % 0.56 2 
15 COND - 94 2.02 % 0.12 % 
16 CONDI = 207 4.45 € 0.26 % 
17 CONS = 140 3.00 % 0.17 2 
18 DE = 19 0.41 2 0 % 
18 DEF = ge 0.47 % 0 d 
20 DF = 1 0 2 O d 
21 DIFFER = 33 0.21 % D d 
22 = 2 D 2 0 d 
23 EPROGN = 252 5.42 2 0.31 ? 
24 EQ = 206 4.43 2 0.26 ? 
25 ERA = 9 0.19 % 0 9 
ӘБ End = 14 0.3 % 0 2 
27 = Б 0.11 % 0) % 
28 ESCAPE = 25 0.54 % 0) d 
29 EVAL z 2. Ü 2 О z 
30 EURO = 1 0 % D d 
31 EUALI = 1052 22.84% 1.31 % 
32 ЕМІР = 493 10.61 % 0.81 % 
33 EVAL3 = 1 0 ? O d 
34 EUALAT = 4547 100. % 5.79 % 
35 EUALAN = 4649 100.02 5.8 % 
36 EUALAT = 1581 34.94 € 1.98 % 
37 Biet = 721 15.52% 0.8 % 
38  EURLFAT = 2760 59.39 € 3.44 % 
39  EURLFLI = 10 0.82 % 0 d 
40  EURLFNB = 1 Ü 2 0 d 
41  EURLFU = 2771 59.63% 3.46 % 
42 EVALI = 3 D я 0 z 
43  EURLIN = 2763 59.48 2 3.45 % 
44 EVALIS = 8783 59.46 2 3.45 % 
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45 VAL  =5 0.31 2 D 2 
458 СІР =1 0 * 0 3 
47  EURLLS -1 0 3 0 2 
48 EVALN =з о 2 o 9 
49 EUALNT = 3 D 2 0 2 
50 EVALN2 = 4 0 2 0 2 
51  EUALNB = 295 6.35 % 0.32 2 
BD EUCAR = 4276 92.02% 5.33 % 
53 EUESC = 3 0 * 0 ZZ 
54 EUESCI = 4 0 % 0 2 
55  EUESC3 = 3 0 о 23 
56  EUESCA = 3 0 23 D 2 
57  EUEXP = 493 10.61% 0.51 2 
ЕВ EVEXP1 = 654 14.07 % 0182 2 
B8 EVEXP2 = 1147 24.68 2 1.43 2 
60 EUEXP3 = 493 10.61 2 0.61 : 
61 EVEXP4 = 656 14.122 0.82 2 
Ер EVEXPS =1149 24.73 9 1.43 Y 
ЕЗ  EUEXPB = 649 13:92 92 DB 2 
64 EUEXP9 = 155 3.34 2 019 2 
65 EUEXPF = 361 5.57 2 045 2 
БВ  EUEXPB = 361 2:77 % 0.45 2 
87  EUEXPN = 338 7.27 % баг? 
БВ EUFEX? = 10 08 2 DO 5 
69  EUFEX3 = 20 0,44 % D 2 
70  EUFEXB = 10 9.2 % D d 
24 EUFEXP = 2 D^ % o 2 
22 ЕДІ - 12 0:5 2 O0 2 
23 ЕЛІСІ = 39 0.84 % (D d 
54 EULISe = 12 oe 2 D 9 
25 ЕМС =8 0.17 à D d 
Së EXICHI = 5 03 % G 2 
27 EXICH = 5 0,11 % D 2 
58 EXIT = 1 0 292 B d 
59 EXIT1 =2 D 93 @ B 
80 EXIT2 = 1 0 % m 2 
81  EXITCHRON- 5 0.41 2 0 A 
B2 EXITER = 1 0 29 o 2 
83 FAL - 12 0.26 2 DO 2 
B4 FUR = 1 Ü % D 2 
85 FUA1 =1 0 2 0 3 
BB IF - 385 8.28 % 0.48 2 
87 INTERNAL = 3 D 2 0 a | 
88  ITSOFT = 108 2,3 % 0.13 % | 
89 LAMBDA = З 0 % D 37 
9D LET = 4 0 % 0 2 
81  LETe = 6 бз? D 3 
92  LET4 = 2 0 2 0 2 
ӨЗ  LET8 = 4 0 2 0 2 
94  LETF = 3 0 % 0 2 
95 LIST = 10 0.22 % D » 
96 LT - 23 0.49 2 D 2 
97 MAIN = 1 0 3% 0 2 
MAINI = 103 2.22 % 0.13 7 
99 MAP -2 б е 0 2 
100 МАР1 = 6 0.13 % 0 2 
101 MAPI -8 042% о °> 
402 MePe = 9 0.19 2 0  ?% 
03 МАРЗ = 28 08 2 O0  % 
104 MAP4 = 16 0.34 % D 3 
105 MAPS = 28 08 2 0 27 
106 MAPS = 37 08 9 D 23 
102 МАРС = 1 0 % 0 2Z 
108 МАРСТ = 4 0 2 0 3 
408 MAPC11 = 5 0.11 2 0 3 
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110 МАРСг = 4 ` D % D % 
111 МАРСЗ = 16 0.34 % D % 
112 MARCA = 6 0.13 % 0 % 
113 et P = 16 0.34 % D fb 
114 "APCE = 20 0.43 % 0 % 
115 МЕМӘ = 63 1.38 0 % 
116 MEMQ1 = 43 0.93 % 0 % 
112 MEMüe = 3? 0.8 H [4 
118 NOT = 251 5.4 % 0.31 % 
118 NULL = 291 5.4 % 0.31 % 
120 DUTLIN = 498 10.72 % 0.62 % 
121 PLUS = 33 0.21 % D % 
122 РОР.) = 599 12.89 % 0.75 % 
123 PRIN = 174 3.74 % 0.22 % 
124 PRIN11 = 100 8.15 % 0.12 % 
125 PRININI = 1 0 % 0 % 
126 PRI = 72 1.55 % 0 [4 
127 РНОВ.) = 9 0.19 % D % 
128 PRO = 209 4.5 % 0.26 % 
129  PROGN = 863 18.57 % 1.08 % 
130 PROGNA3 = 252 5.42 % 0.31 % 
131 QUOTE z 78 1.68 % D % 
132 RERDINI = 1 D *? Ü % 
133 REV1 = 23 0.49 % 0 Ta 
134 REVERSE = 32 0.69 % D % 
135 RPLACB = 4 Ü њо б % 
136 SEL = 11 0.24 % 0 % 
137 SEL = 21 0,45 о D % 
138 SELFER = 1 ü % Ü % 
138 SELFF = 9 0.13 % б ë 
140 SELFL = 10 0,22 % 0 % 
141 SELFS - 1 0 2 Ü % 
142  SELFM = 9 0.18 % D % 
143 SERRO1 = 14 0.3 % D © 
144 SERROZ = 5 0.11 x D m 
145 SERR = 5 0.11 % D е 
146 SET - 11 0.24 6 0 % 
147 STOP = 1 0 % Ü Ф 
148 SUBI = 25 1.680 % 9 % 
149 TEUEXL = 280 6.03 2 0.35 % 
150 TEUEXN = 31 9.67 % O © 
151 TIMES = 5 0.11 % 8 © 
152 TOPLEUEL = 103 2.22 Ф 0.13 % 
153 TRUE = 227 4.88 % 0.28 % 
154 UDFR = 1 2 % Ü fh 
155 UüFR1 = 1 Ü % D va 
156 E = 1 0 % DH % 
152 ШОҒЕН - 1 0 е Ü © 
158 UNBDF = 3 Ü % D % 
158 UNBDL = 361 7.77 % 0.45 % 
160 UNBDL1 = 406 8.74 8 0.51 % 
161 UNBDLe = 767 16.51 % 0.86 % 
162 UNB = 108 2.32 % 0.13 ` % 
163 UNBDW = 28 0.6 % 0 [4 
164 UNBIND = 490 10.54 % 0.61 % 
165 UNBINP = 500 10.76 % 0.62 % 
1 WHERE = 3 D 5 О % 
167 WHERE1 = 2 D % Ü % 
168 ИНЕ = 3 0 % 0 ë 
169 NWHERE3 = 28 0.6 % 0 ë 
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RESUME ПЕ _ LA MACHINE ` UCMCƏ 
Notations utilisées pour décrire les instructions : 


l’opérande source 
L'opérande destination 


est transféré dans 
est échangé avec 


le nouvelle valeur du code condition. 


l’attribut CVAL d'un symbole atomique 
l’attribut PLIST d'un symbole atomique 
l'attribut FVAL d'un symbole atomique 
l'attribut FTYP d'un symbole atomique 
l’attribut PTYP d'un symbole atomique 


addition 

la soustraction 
multiplication 
division 
reste de la division 
ou inclusif logique 
et logique 
ou exclusif logique 


partie CAR d’un doublet 
partie CDR d'un doublet 
doublet de liste, 
x est (а partie CAR 
y est la partie C 


registre pointeur de pile 
contenu du sommet de pile 


le registre d' index 
un opérende indéxé i.e. un opérande 
dont L'adresse est égale à: x + y 
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EE 


| Opérande | NIL | 
| Opérandes | Al, A2, A3 ou A4 | 


Opérande | TST 


| Opérande | 'objet-WLISP ou ( adresse-mémoire ) | 


| Continuation | [NOP] ou bien omission du champ | 
| Continuation | [JUMP (adresse-memcire)] | 
| | 
Continuation | [CALL (adresse-mémoire)]) 


Continuation | [RETURN] 
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<s> + 
<s> - 
«8» ж 
«s» / 
<s> A 
<s> ou 
«s» et 
«5» OUX 


тыуыуы 
Lo Qo Qo Qo Qo Qo Qo Qo 
1111 


(CVAL 
(PLIST 
(FVAL 
(FTYP 
(PTYP 


<d> 
(CVAL <d>) 
<d> 
(PLIST <d>) 
<d> 
(FVAL «d») 
<d> 
(FTYP «d») 
«d» 
(PTYP <d>) 


$5.4 
Qo Qo Qo Qo Qo Qo Qo Qo Qo Qo 
0000000000 
<A A =A A A 4 A A = -+4 


4414411 


<S> oux 


э & 
э & 
> & 
ә & 
э & 
A & 
э & 
ә & 


(САВ <з>) <d> 
(СОВ <s>) <d> 

«s» (CAR «d») 

<s> (CDR <d>) 
( <s> , <d> ) <d> 
( «d» . «a» ) «d» 
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IX 
«s» 
«s» 


«s» [IX] 


l H H H 
1 


«s» [«d»] 
si (LITATOM <d>) <s> [0] 


бі (NUMBP <d>) <s>f1] 
si (LISTP <d>)  «s»[2] 


(LITATOM «s») 

(NOT (LITATOM «s»)) 
(NUMBP <s>) 

(NOT (NUMPB «s»)) 
(LISTP «s») 

(NOT (LISTP <s>)) 


EQ | CC» (<s> = <d>) 
CCa (<s> и <d>) 


(GE «s» «d») 
<s> <d>) 
(LT <s> <d>) 
(LE <s> <d>) 
<d> - «s» (ZEROP <d>) 
«d» - «s» (NOT (ZEROP «d»)) 


STOP 
PRSTRCK 
PRSTRT 


entrée э «d» Ce T 
«s» э sortie СС= T 
saut de ligne CC» Т 


RERD 
PRINI 
. TERPRI 
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IN | fiux d'entrée э «e» | 


| INTERN | forme interne de «s» - «d» | 


Ш 


| OUT | «s» > flux de sortie | 


.EN | LEN | — (PLENGTH <s>) э «c «5») <d> = 
PNAN АРМАН <s>) ` <s>) <d> 


équivalent 

équivalent à 
équivalent à 
équivalent à 


positionne le mode 
enlève. Le mode trac 
positionne le mode 
enlève Le mode pas- 


SILENCE sauve l’état courant des modes 


et passe en mode no 


REUIUE repasse dans les modes sauvés 


par le dernier SILE 


DRTR objet-MLISP ou ( adresse-mémoi , 
BL nombre , objet-VLI$P ou ( adresse-mémoire ) 


«s», TST 
TST, «d» 
«s»,NIL 
<s>, NIL 


trace 
e 
Даса -à-pas 


-pas 
n-trace 
NCE 


re ) 


COMMENT mM | 
t f ENTRY = <nom>, <F i YP>, <PTYP> 
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11 


H CNC SN ; V LI 
Simulateur de 1a machine UCMC2 


Ce fichier doit être édité au moyen de : 
(CROSSF J2M () T T (NIL/T) T T) 
(NIL/T) 51 VERSATEC 


Jéróme CHAILLOUX 


Département d'Informatique 

Université de Paris 8 - Vincennes 

Route de la Tourelle 75571 Paris Сёйзх 12 
Tél : 374 12 50 poste 299 


L.I.T.P.  (CNRS LA 248) 
2 Place Jussieu 75221 Paris Cédex 05 
Tél : 336 25 25 poste 53-70 


I.R.C.A.M. 
31 Rue St Merri 75004 Paris 
Tél : 277 12 33 poste 48-48 


Le Va a Va Че De Vo 99 99 wç Da Әә чу Vo 5% Vo Va %Ç Ve Ve Ba Ve Qe Ve 


“4 чо Sa Va Ve 9% %% 9% 9; De Ng Vo fe "ge Ve Vo Du Va Че 9% Ng De Le Se Че Ge Se Lo 99 Vo "e Ve 9% Ve 


règles de reconnaissance des identificateurs : 


Jer car. signification 


fonctions d'échappements (ESCAPES) 
variables globales à tout le simulateur 
variables libres pour certaines fonctions 
(mais liées par des fnts du simulateur) 

f indicateurs sur P-listes 

ч indicateurs du simulateur (e.g. T ои NIL) 


"^ "Ab 


"- Ve Әу Qe Va Әо Vo Ie Ve Vo Va Va 9% 
Se Ge Ve 
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rar: TIR PA PP LP EE 


39 ; Prologue standard ; 

40 нараси 2 

4] ; Silence ! ; 

42 

43 (STATUS 2 1 2) 

44 

45 55 | 

46 ; Pour pouvoir Tire ce fichier en tous temps ... ; 

A =“ 

49 (PROGN (SETQ READ.TABLE «(READ.TABLE)) (READ.STD) NIL) 

o0 

51 ; Pour prettyprinter correctement Te code ; 

52 
53 (DF CODE (laux) Laux) 

94 | 

55 

56 ; Définition du format (TTAB x) » »x ; 

57 | 

58 (DE + (nbaux) Da nbauxl) 

99 

60 (ОМО + (nbaux) (TTAB nbaux)) 

61 

62 (DMC + О Da (ВЕАр)1) 

63 

64 ; Définition du format (TERPRI x) = |x ; 

65 

66 (DE | (nbaux) ['| nbauxl) 

67 

68 (DMO | (nbaux) (TERPRI nbaux)) 

69 

70 (DMC | О ['| CREAD)]) 

71 
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^ i Fonctions utiles : SORTL PRINTL PRININST 
74 
75 (DE SORTL (L ;; RESL N Q L2 LL) | 
76 ; trie 1a liste d'atomes L , une version de QUICKSORT ; 
77 ; Patrick GREUSSAY. Août 78; 
78 (IF (NULL L) 
79 NIL 
80 (SETQ RESL [NIL1) 
81 (PUSH (LENGTH L) L) 
82 (LET (L1) 
83 ; L1 DOIT étre locale, voyez-vous pourquoi ? ; 
84 (SETQ L1 (POP) N (POP) ) 
85 (IF (EQN N 1) (LESCAPE L1)) 
86 (SETQ Q (LOGSHIFT N -1)) 
87 (PUSH. Q L1) | 
88 (SETQ 11 (NTH Q L1)) 
89 (PUSH (PLUS (LOGAND N 1) Q) (CDR L1)) 
90 (RPLACD L1 NIL) 
91 (SETQ L1 (SELF) L2 (SELF) LL (RPLACD RESL L1)) 
92 (WHILE L1 
93 dE (ТЕ (SORT «CAR L2) (CAR L1)) 
94 (SETQ N L1 L1 L2 L2 N N (RPLACD LL 1122) 
95 (SETQ LL L1 L1 (CDR L1))) 
96 (RPLACD LL L2) 
EA (CDR RESL)))) 
99 (DE PRINTL (s n) 
100 ; édite l'objet ei sous forme packée ; 
101 ; n est le niveau d'édition ; 
102 (IF (ATOM s) 
103 (PRIN1 s) 
104 (IF (GE n 4) 
105 (PRIN1 '/...) 
106 (PRIN1 (n '(/C € <))) 
107 (IF s (PRINTL (NEXTL s) (ADD1 n))) 
108 (IF s (PRINTL (NEXTL 5) (ADD1 nii) 
109 (IF s (PRINTL (NEXTL s) (ADD1 п))) 

| 110 | (IF s (PRINTL (NEXTL s) (ADD1 n))) 

E 111 (AND s (PRIN1 '/...)) 

| | 112 (PRINL (n ' (D ) >)))))) 
114 ФЕ PRININST (i) 
115 ; imprime l'instruction i ; 

| 116 (IF (АТОМ i) (LESCAPE (PRIN1 i) (PRINC ?':) (TERPRI))) 

| 117 (PRIN1 295 (NEXTL i) 14 (NEXTL 122 
118 (PRINC ”,2 
119 (PRINT (NEXTL i0) 
120 (IFN i NIL (PRINC ”,) (PRINI PLIST . 110) 
E (TERPRI2) 


| 
| 
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123 ; Variables globales du simulateur ; 


124 , i , 

125 z; 

152 ; "interpreter : liste code де l'interprète VCMC2 : 

155 (OR (BOUNDP '^interpreter) (SETQ ~interpreter NIL)) 

; "pprinter : liste code de T'imprimeur VCMC2 ; 

135 (OR (BOUNDP '^pprinter) (SETQ +pprinter NIL)) 

p ; "reader : liste code du lecteur VCMC2 ; 

E (OR (BOUNDP '^«reader) (SETQ ¿reader NIL)) 

15 ) "lregn : liste des noms des registres normaux ; 

P (SETQ мігеоп ' (А1 A2 АЗ A4)) 

TE ; ~lformat : liste des formats d'instruction ; 

ye (SETQ ^Lformat '(1MOT 2MOTS ЗМОТЅ 4MOTS)) 

vE ; ^loper : liste des opérandes d'une instruction ; 

178 (SETQ ~loper ' (null A1 A2 АЗ A4 TST immediat direct?) 

e ; “lcont : liste des continuations d'une instruction ; 

`= (SETQ ^tcont ° (NOP JUMP CALL RETURN)) 

1 ; "linstr : liste des intructions légales de VCMC2 ; 

156 (SETQ 

157 "linstr 

158 (SORTL 

159 " (MOVE CAR CDR SCAR SCDR INDEX SINDEX MOVEX XMOVE CVAL SCVAL PLIST 
160 SPLIST FTYP SFTYP FVAL SFVAL PTYP SPTYP CONS XCONS STACK SSTACK 
161 TOPST XTOPST ADD SUB MUL DIV REM LOGOR LOGAND LOGXOR NOP JUMPX 
162 DISPT TATOM FATOM TLIST FLIST TNUMB FNUMB EQ NEQ LT LE GT GE 
163 SUBTZ SUBFZ READ IN INTERN PRINI TERPRI OUT PLEN PNAM PRSTACK 
164 STOP))) 

165 

ics ; "ltypsubr : liste des types des SUBR ; 

TE 2 (SETQ ^ltypsubr '(0SUBR 1SUBR 2SUBR 3SUBR NSUBR FSUBR)) 

i ; ^Stacklength : taille max de la pile ; | | 

176 (SETQ »stacklength 4000) 
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А 


о с нине A ныны таны =н = 


172 ; Indicateurs de p-listes globaux utilisés dans le simulateur ; 

Er mnm t а 

176 ; ' 
Attributs atomiques : SOUS les variables simulées 


/cval 
Iplist 
Ifval 
!ftyp 
Iptyp 


Compteurs du simulateur : 


linst occurrence d'une intruction 
loperand occurrence d'un opérande 
{format occurrence d’un format 
I contin occurrence d'une continuation 
/ label passage à une étiquette 
Itypsubr type des SUBR 
; 
177 s; oc 
1 ; Indicateurs de contrôle du simulateur ; 
Н Eege ; 

180 » 

182 ; trace de la fonction POINT ; 

E (OR (BOUNDP *?pointrace) (SETQ ?pointrace NIL)? 

189 ; trace du contenu des registres ; 

e (OR (BOUNDP '"2contrace) (SETQ 2contrace NIL)) 

153 ; trace des instructions exécutées ; 

e (OR (BOUNDP *?instrace) (SETQ 2instrace NIL)) 

92 

en : trace du contenu de la pile et du registre d'index ; 

1 (OR (BOUNDP '?prinstack) (SETQ ?prinstack NIL)) 

; trace en mode stepper ; 

(OR (BOUNDP ? ?stepper) (SETQ ?stepper NIL)) 

00 


h š . . 
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5” ; Lancement де la machine : VCMC2 ; 
02 ; 


204 (DE UCMCe 
205 (LCOD ; liste des intructions ; 


206 ?stat ; =T si on imprime des statistiques en fin S 
207 ?instat ; =T si on compte les occurrences des instructions j 
208 ` ?labstat ; =T si on compte les passages aux étiquettes ; 
2 larg ; liste-état des 4 lers registres ; 
211 Al ; ler reg. ; 
212 A2 ; 2ème reg ; 
213 A3 ; 3ème reg ; 
214 A4 ; 4ème reg ; 
215 PC ; compteur ordinal courant ; 
216 ; liste des instructions restant à faire ; 
217 ST ; contenu courant de la pile ; 
515 INDEX ; contenu courant du registre d'index ; 
#7 
220 #ninst ; nb d'instructions exécutées ; 


221 #nincr ; nb d'instructions en incremental : 
222 Zncont ; nb de continuations ; 

223 Йпорег ; nb d'opérandes évalués ; 

224 finuord ; nb de mots instructions lus ; 

225 finbcons ; nb de CONS effectués ; 

226 Hstackl ; taille max de la pile ; 

227 runtime ; durée d'exécution de VCMC2 ; 

228 x ; auxilliaire ;) 


229 22 

230 ; RESET de 1a machine VCMC2 ; 

231 z; 

232 (SETQ 

233 Al (CAR larg) ; init ler arg ; 

234 A2 (CADR larg) ; init 2ème arg ; 

235 A3 (CADDR larg) ; init 3ème arg ; 

236 A4 larg ; init liste des arguments ; 

237 ST ”(((6ТОР)) жеоѕж) ; contenu courant de 1а pile ; 

238 PC LCOD ; Tiste des instructions ; 

239 Hninst 0 

240 #nincr 0 

241 Hnoper 0 

242 #nword 0 

243 #nbcons 0 

244 #stackl 2 

245 runtime CRUNTIME)) 

246 rs 

5, ; init des compteurs des types d'instruction ; 

249 (IF ?instat (МАРС ^linstr (LAMBDA (L) (PUT L O " inst)?» 
250 (IF ?instat (МАРС «Lformat (LAMBDA (L) (PUT L 0 " ! ғогта+); v? 
251 (IF ?instat (МАРС +icont (LAMBDA (L) (PUT L 'O "'!contirD2»; 
25А (IF ?instat (МАРС +loper (LAMBDA (L) (PUT L 70 ? loperanc) ; ; : 
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: Séquenceur principal ; 


254 

255 (LET 

256 (inst) (R1) (82) (continuation) (codecondition) (хаих) (valregs)) 
257 ; I1 faut pas mal de variables locales à XCT ; 

258 (ESCAPE &STOP 

259 (WHILE (LISTP PC) 

260 (IF ?instrace (PRININST (CAR PC))) 

261 (IFN ?stepper 

262 NIL 

263 (UNTIL (EQ (PROGN (TYO (CASCII 7792 (ТҮІ)) 32) 
264 (IF «EQ (TYS) 10) (TYI)) 

265 (PRINT (EVAL CREAD))))) 

266 (IF (LISTP (CAR PC)) 

267 : C'est une instruction ; 

268 | OCT (NEXTL РС)) 

269 ; C'est une étiquette ; | 

270 (IF (OR (NULL ?Labstat? (NULL (CAR PC))) 
271 (NEXTL PC) 

272 (SETQ x (GET (CAR PC) '! Label)) 

273 (PUT (CAR PC) (IF x (А001 x) 1) ” I label) 
274 (NEXTL PC)))) 

275 (PRINT "Machine VCMC2 - HALT sur : " PO)» 

276 
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; Impression des statistiques ; 


277 

278 ЧЕ ?stat 

279 (PROGN 

280 (PRINT "Nb d'instructions exécutées :" Zninst) 

281 (PRINT "Temps d’une instruction :" 

282 (// (- (RUNTIME) runtime) (FLOAT #ninst)) " ms, Hi 

283 (PRINT "Nb de CONS effectués :" #nbcons) 

285 (PRINT "Taille maximum de La pile :" (DIFFER #stackl 2222) 
556 í Impression des comptages dynamiques ; 

288 ЧЕ ?instat 

289 (TABSTAT "Occurrences dynamiques des instructions" «Linstr "'linst 
290 #ninst 0 Г" Nb d'instructions exécutées : " #ninst]l)) 

291 (IF ? instat 

292 (TABSTAT "Occurrences dynamiques des formats" «lformat '!format 
293 flninst 0 

294 [" Nb d' instructions exécutées : " 

295 flninst 

296 " Nb de mots des instructions : " 

297 #nword] ) ) 

298 (IF ?instat 

299 (TABSTAT "Occurrences dynamiques des continuations" +lcont 

300 ” Icontin Zncont #ninst 

301 [" Nb de continuations SP 

302 #ncont 

303 " Nb d'instructions exécutées : " 

304 #ninst])) 

305 (IF ?instat 

306 (TABSTAT "Occurrences dynamiques des opérandes" ~!іорег '!operand 
307 #noper Aninst 

308 [" Nb d'opérandes évalués p" 

309 . #порег 

310 " Nb d’instructions exécutées : " 

311 #ninstl)) 

312 ps | 

2 ; Impression des passages aux étiquettes ; 

315 (IF ?labstat 

316 (PROGN 

317 (SETQ x (GET 'EVALA1 ''!label)) 

318 (TABSTAT "Passage aux étiquettes" 

319 (SORTL (MAPCT (OBLIST) (LAMBDA (x) (IF (GET x '!label) x)))) 
320 ’Ilabel x #ninst 

321 [" Nb de passages dans EVALA1 : " 

322 x | 

323 " Nb d’instructions exécutées : " 

324 . #ninst]))) 

325 ; Ca ramène toujours А1; 

326 A1) 

327 
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déer 


328 ; Décodage des opérandes : VALUESOURCE POINT ; 


329 -----------------------Т-; 

330 

331 (DM URLUESOURCE (L) 

332 ; macro-génère (CAR (POINT x NIL)) ; 

SC (RPLACB L D'CAR DPOINT (CADR 12110) 

335 (DE POINT (adef idest ;; xaux) 

336 : ramène le pointeur 'adef' (adresse effective d'opérande) ; 
337 ; idest = T si opérande destination ; 

338 ; TRACE si ?pointrace = Т; 

339 (IF ?instat (INCR #noper)) 

340 (SETQ 

341 POINT 

342 (COND 

343 ((MEMQ adef ” (А1 А2 АЗ A4)) 

344 (IF ?instat (PUTINCR adef ? loperand)) 

345 adef) 

346 ((NULL adet) 

347 (IF ?instat (LTINCR 'null ' loperand)) 

348 (IFN idest 

349 [NIL] 

350 (MACHERR 'POINT "NiL comme opérande destination. "))) 
391 ((EQ adef 'TST) 

‚352 (IF ?instat (PUTINCH adef 'loperand)? 

353 (IF (ATOM ST) (MACHERR 'POINT "Pile détruite") 
354 (IF idest 

355 ; cas destination : PUSH ; 

356 (PROGN 

357 (SETQ xaux {LENGTH 5122 

358 CAND 

359 (GT xaux #stackl) 

360 (SETQ Zstackl xaux) 

361 (IF (GE xaux ~stack length) 

362 (MACHERR POINT "Pile pleine. "))) 
363 (SETQ TST [NIL] ST [TST . STI) 

364 ST) 

365 : cas source : POP ; 

366 (IF (EQ (CAR ST) ’xeosx) 

367 (MACHERR 'POINT "Pile vide.) 

368 (PROG1 ST (SETQ TST (МЕХТІ ST)))))) 

369 ( (ATOM adef) (MACHERR 'POINT "Opérande inconnu :^ ade f ) ) 
370 (T ; adresse ( ) donc par PC auto-incrément ; 

371 (IF ?instat | 

372 (IF «EQ (CAR adef) "SI 

373 (PUTINCR "direct ° ! орегапа) 

374 . (PUTINCR ' immediat °! орегапа) )) 

375 (COND 

376 =` ((EQ (CAR adef) DATA) (SELF (CADR adef))) 
377 ((AND (CDR adef) (EQ (CAR adef) QUOTE)) (CDR adef)) 
378 («ЕП (CAR adef) 'G) 

379 (SETQ 

380 xaux 

381 (OR 

382 (МЕМО (CADR adef) «reader? 

383 (МЕМО (CADR adef) +pprinter) 

384 (МЕМО (CADR adef) rinterpreter))) 
385 (IF (NEO (CAADR xau ”ПАТА) 

386 (MACHERR 'POINT "8 sans DATA. ") 

387 (CDADR xaux) )) 

388 ((EQ (САН adef) 'xVAL3) 

389 (SELF (EPROGN (СОВ adef)) idest?) 
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390 («СЕТ (CAR adef) '!point?)) 

391 ( (SETQ 

392 xaux 

393 (OR 

394 (MEMQ (CAR adef) ~reader) 

395 (MEMQ (CAR adef) ~pprinter) 

396 . (MEMQ (CAR adef) ~іпїегрге+ег) )) 

397 (IFN xaux 

398 (MACHERR 'POINT "Etiquette inconnue. ") 
399 (SETQ xaux [xaux]) 

400 (РОТ (CAR adef) xaux '!point) 

401 хаих)) 

402 (T CMACHERR 'POINT "Opérande inconnu :" айе?) ))))) 
403 (IF ?pointrace (PRINT 215 'POINT adef "e (CAR POINT))) 
"e POINT) 
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406 ; Fnts spéciales de Ta micro-machine : MACHERR MOVE JUMP PRSTACK ; 
407 Í —— ——Fr—r,n_ M n À 


408 

409 (DE MACHERR (V L . xaux) 

410 ; erreur de 1a machine VCMC2 ; 

411 ; 1) imprime les messages d'erreur ; 

412 (PRINT "жжжжж Erreur machine VCMC2 dans :" V) 
413 (PRIN1 -6 L) 

414 (IF xaux (PRINT xau») (TERPRI)) 

415 (PRINT Әб "Instruction : " Linst) 

416 ; 2) réalise l'interruption ; 

417 (CT "(МОР [CALL (MERROR)1)) 

418 ; 3) retourne NIL ;. 

419 NILS 

420 

421 (DE MOUE (R1 R2) 

422 : réalise le transfert de BI vers R2 ; 

423 (SETQ R1 (CVALUESOURCE R1)) 

ES (SET (POINT R2 T) R1)) 

426 (DE JUMP (R1 ;; ?instat) 

427 ; ?instat est lié pour ne pas compter les opérandes des cont. ; 
428 (SETQ R1 (VALUESOURCE R12) 

429 (IF (OR (NULL R1) (LISTP R1)) 

430 ; C'est une étiquette UCMC2 ; 

431 (SETQ PC R1) 

432 ; C'est une étiquette inconnue ; 

22 (MACHERR * JUMP "Adresse inconnue : " R1))) 
435 (DE PRSTRCK (n stack) 

436 ; imprime les n premiers contenus de Ta pile stack ; 
437 ; réalise donc l'instruction VCMC2 PRSTACK ; 
438 (IF (NULL stack?) (LESCAPE)) 

439 (TTAB 12) 

440 (IF (ZEROP m 

441 (LESCAPE) 

442 (LET ((s (CAR stack)? (d 2)) 

443 (IF (ATOM s) 

444 (PRIN1 5) 

445 (IF (ZEROP d) 

446 (PRIN1 0 

447 (IF (GE (LENGTH s) 100) 

448 (PRIN1 (CAR s) ':D2 

449 (PRINI '/O 

450 (SELF (CAR s? (5081 d)) 

45] (IF (NULL (CDR s)) 

452 (PRIN1 °/)) 

453 (SELF (CADR s) (SUBI d)) 
454 (IF (NULL (СООН s)) (PRINT 7/20 (PRIN1 '/.../)))))))) 
455 (TERPRIO 

456 (SELF (SUBI п) {CDR stack)i))) 

457 
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458  ; Exécuteur des instructions : XCT ; 


459 J mma N ; 

460 

461 (DE XCT (linst) 

462 ; exécute 1 instruction VCMC2 : 'linst' ; 

463 (IF ?stat 

464 (PROGN 

465 (INCR Zninst) 

466 (INCR #nincr) 

467 (IF (AND (ZEROP (REM Zninst 1000)) «ІНСАМР) (LZP (ТВМОР 547))) 
468 ; Je suis à l'IRCAM sur DATA-MEDIA ; | 
469 (DISPLAY 

470 (APPEND [127 14 127 12 121 98] 

471 (MAPCAR (EXPLODE #ninst) ?’CASCII)))))) 

HE IF ?contrace (SETQ valregs [A1 A2 АЗ А4])) 

de ' Fetch instruction ; 

77 (IF (ATOM Linst) (LESCAPE (MACHERR 'XCT "Exécution d'un atome."))) 
478 ; décodage opérandes ; 

479 23 

480 (SETQ 

481 L Linst 

482 inst (NEXTL D ; Code instruction ; 

483 R1 (NEXTL D ; ler opérande ; 

484 R2 (NEXTL D ; 2ème opérande ; 

485 continuation L ; champ continuation ; 

486 codecondition T ; CODE condition T à priori ;) 

nid CIEN (LITATOM inst) " (MACHERR *XCT "Instruction incorrecte. ")) 
452 ; Comptage du type de l'instruction et du format ; 

491 it: ?instat (PUTINCR inst '!inst?) 

492 (IF ?instet 

493 (PROGN 

494 (SETQ x 1) 

495 (IF (LISTP R1) (INCR x) 

496 (IF (LISTP R2) (INCR x)) 

497 (IF 

498 (AND 

499 (LISTP continuation? 

500 (MEMQ (CAR continuation) ' (JUMP CALL))) (INCR x)) 
501 (SETG #nuord (PLUS #nword x2) 

502 (PUTINCR 

503 (CASSOC x '((1 . 1MOT) (2. 2M0TS) (3 . 3MOTS) (4 . &4MOTS))) 
2 | * Iformat))) 
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eege 


; Exécut н 2 

506 
507 (SELECTQ inst 
508 z; 
E ; Les Pseudo- instructions ; 
511 (ENTRY 
512 (PUT R1 (OR continuation R1) '!fval 
513 (PUT Ri 
514 (CASSG R2 
515 ” ((OSUBR . 1) (150ВА . 2) (2SUBR . 3) (SSUBR . 4) 
516 (NSUBR . 5) (FSUBR . 6))) 
517 ’ IM typ?) 
518 ((DATA BLOCK) ; provoque irrémédiablement une erreur ; 
519 (MACHERR 'XCT "Exécution d'une DATA.")) 
520 (TRACE ; lance une TRACE ; 
521 | (SETQ ?instrace T ?contrace T ?prinstack T)) 
522 (UNTRACE ; enlève la TRACE ; 
523 (SETQ ?instrace NIL ?contrace NIL ?orinstack NIL)) 
524 (STEP ; lance un STE? ; 
525 (SETQ ?instrace T ?conirace T ?prinstack T ?stepper T)? 
926 (UNSTEP ; enlève le Air: 
527 (SETQ ?instrace Ni. ?contrece NIL ?prinstack NIL ?stepper NIL)) 
528 (SILENCE ; inhibe toutcs les iraces ; 
529 (PUSH ?instrace SE Trrinstack ?7pointrace ?stepper) 
530 (SETQ 
531 ?instrace <) 
532 | ?contrece ©) 
533 ?prinstack О 
534 ?pointrace © 
535 ?stepper O)) 
536 (REVIVE ; restaure les traces 3nhibées ner SILENCE ; 
537 (SETQ 
538 ?stepper (POP) 
539 ?pointrace (POP) 
540 ?prinstack (POP) 
541 ?contrace (POP) 
942 ?instrace (POP))) 
543 (;; (SETQ continuation NIL)) 
544 (PRSTAT ; imprime les statistiques en incrémenta! ; 
545 (ТЕМ ?stat 
546 NIL 
547 (PRINT "Nb d'instructions exécutées :" #nincr) 
548 (PRINT "Nb de CONS réalisés s" #nbcons) 

549 (PRINT "Taille maximum de la рз. :" Astack Ò) 

(SETQ Hniner 0 #nbcons 0 #stackl 02)) 

jl НН 
= ; Instructions de transferts de base ; 

554 MOVE (MOVE R1 R2)) 
555 (CAR (SETQ R1 (VALUESOURCE R1)» (SET (POINT R2 T) (CAR R1))) 
556 (СОВ (SETQ R1 (VALUESOURCE R1)) (SET (POINT R2 T) (COR R1))) 
557 (SCAR (SETQ Ri (VALUESOURCE R1)) (ВРІ АСА (CAR (POINT R2 T)) R15) 
E (SCDR (SETQ R1 (VALUESOURCE R12) (ВРІ АСО (CAR (POINT R2 Т)) Ri» 

59 

Sch ; Instructions manipulant l'index ; 

1 

562 CÍNDEX z lecture de la valeur de l'index z 

563 (SET (POINT R1 Т) INDEX)) 

564 (SINDEX ; écriture de l'index ; (SETQ INDEX (VALUESOURCE R1))) 
565 (MOVEX ; opérande normal » opérande indexé ; 

566 (SETQ R1 (VALUESOURCE R1)) 

567 (SETQ R2 (CNTH (PLUS (VALUESOURCE R2) 2) INDEX) ) 
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568 (IF (NEU (CAR R2) 'DATA) 


569 (MACHERR ”ХСТ "MOVEX : sans DATA.") 

570 (SET (CDR R2) R15») 

571 (ХМОУЕ ; opérande indexé + opérande normal ; 

572 (SET R1 (СМТН (PLUS (VALUESOURCE R1) 2) ' INDEX) ) 
573 (IF (NEQ (CAR R1) ’DATA) 

574 (MACHERR °ХСТ "XMOVE : sans DATA.") 

772 (SET (POINT R2 T) (CADR R1)))) 

577 ; Fonctions spéciales sur les atomes ; 

че i Tous les attributs sont sur les PLIST ; 

580 (буд. ; les CVAL sont sur Ta PLIST pour éviter les ; 
981 ; collisions avec les variables du simulateur 2 
582 (SETQ R1 (VALUESOURCE R1)) 

583 (SETQ xaux (GETL R1 '(!cvaD)) 

584 (SET (POINT. R2 T) 

585 (IF (LISTP xaux) 

986 (CADR xaux) 

587 (IF (МЕМО R1 'NIL T LAMBDA?) R1 '^UNDEP))») 
988 (SCVAL 

589 (SETQ R1 (VALUESOURCE R1)) 

590 (PUT (CAR (POINT R2 DO R1 *'!cval)) 

591 (PLIST 

592 (SETQ R1 (VALUESOURCE R1)) 

593 (SET (POINT R2 T) (GET R1 'I!plist))) 

594 (SPLIST 

595 (SETQ R1 (VALUESOURCE R1)) 

596 (PUT (CAR (POINT R2 Т)) R1 °!рііѕ+)) 

597 (FVAL 

598 (БЕТП R1 (VALUESOURCE R1)) 

599 (SET «POINT R2 T) (GET R1 '!#val))) 

600 (SFVAL 

601 (SETQ R1 (VALUESOURCE R12?) 

602 (PUT (CAR (POINT R2 DO R1 '!fvaU) 

603 (FTYP 

604 (SETQ R1 (VALUESOURCE R1)) 

605 (SET (POINT R2 D (GET R1 '!ftyp))) 

606 (SFTYP 

607 (SETQ R1 (VALUESOURCE R1)) 

608 (PUT «САН (POINT R2 DO R1 '!ftyp)) 

609 (PTYP 

610 (SETQ R1 (VALUESOURCE R1)) 

611 (SET (POINT R2 T) (GET R1 '!ptyp))) 

612 (SPTYP 

613 (SETQ R1 (VALUESOURCE R12) 

Ge (PUT «CAR (POINT R2 TD R1 'Iptyp)) 

Ge ; Instructions de création de doublets ; 

618 (CONS 

619 (INCR Znbcons) 

620 (SETQ R1 [(VALUESOURCE R1) . (VALUESOURCE R2)1) 
621 (SET (POINT R2 T) R1») 

622 (XCONS 

623 (INCR #nbcons) 

624 (SETQ R1 (ХСОМЅ (VALUESOURCE R1) (VALUESOURCE R2))) 
625 (SET (POINT R2 T) R1») 

626 ә 

GE ; Instructions sur 1a pile ; 

629 (STACK ; lecture du pointeur de pile ; (SET (POINT R1 T) ST) 
630 (SSTACK ; écriture du pointeur de pile ; 
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RER ER, 


631 (SETQ ST (VALUESOURCE R1))) 
632 (TOPST ; lecture du sommet de la pile ; 
633 (SET (POINT R1 T) (CAR ST))) 
634 (XTOPST ; échange du sommet de la pile ; 
635 (SETQ xaux (CAR STD) 
636 (SET ST «VALUESOURCE R12) 
637 (SET (POINT R1 T) xau? 
638 г: 
E ; Instructions arithmétiques ; 
641 (ADD 
642 (SETQ R1 (PLUS (VALUESOURCE R1) (CVALUESOURCE R2))) 
643 (SET (POINT R2 T) R1)) 
644 (SUB | 
645 (SETQ Бі (VALUESOURCE R1)) 
646 (SETQ R1 (DIFFER (VALUESQURCE R2) R1)) 
647 (SET (POINT R2 T) R1)) 
648 (MUL. 
649 (SETQ R1 «TIMES (VALUESOURCE R1) (VALUESOURCE R2))) 
650 (SET (POINT R2 T) R10) 
651 (DIV 
652 (SETQ R1 (VALUESOURCE R12) 
653 (SETQ R1 (QUO (VALUESOURCE R2) R15) 
654 (SET (POINT R2 T) R1» 
655 (REM 
656 (SETQ R1 (VALUESQURCE R15) 
657 (SETQ R1 (REM (VALUESOURCE R2) R1)) 
658 (SET (POINT R2 T) R1») 
659 zx 
n ; Instructions logiques ; 
662 (LOGOR 
663 (SETQ В1 (LOGOR (VALUESOURCE R1) (VALUESOURCE R2))) 
664 (SET (POINT R2 T) R15) 
665 (LOGAND 
666 (SETQ R1 (LOGAND (VALUESOURCE R1) (VALUESOURCE R2))) 
667 (SET (POINT R2 T) R1» 
668 (LOGXOR 
669 (SETQ R1 (LOGXOR (VALUESOURCE R1) (VALUESOURCE R2) >) 
GH (SET (POINT R2 T) R1)) 
672 ; Instructions de controle (elles sont réalisées ; 
572 ; en utilisant le champ continuation) ; 
4 2; 
675 (МОР ; pour réaliser les instructions inconditionnelles z) 
676 27 
677 ; Instructions d'aiguillage ; 
678 z; 
679 C(JUMPX 
680 (SETQ R1 (VALUESOURCE R12) 
681 (JUMP (CNTH (PLUS (VALUESOURCE R2) 2) R15») 
682 (DISPT 
683 (SETQ R1 (VALUESOURCE R1) R2 (VALUESOURCE R25) 
684 (JUMP (CNTH (COND 
685 (CITATOM R2) 2) 
686 : ((NUMBP R2) 3) 
687 (T 4)) R1))) 
688 SES 
689 : Instruction qui positionnent Те codecondition ; 
690 2 
691 (TATOM (SETQ codecondition (LITATOM (VALUESOURCE В1)))) 
692 (FATOM (SETQ codecondition (NULL (LITATOM (VALUESOURCE R1))))) 
693 (TLIST (SETQ codecondition (LISTP (VALUESQURCE R1) ))) 
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694 (FLIST (SETG codecondition (ATOM (VALUESOURCE R1)))) 

695 (TNUMB (SETQ codecondition (NUMBP (VALUESOURCE R1)))) 

696 (FNUMB (SETQ codecondition (NULL (NUMBP (VALUESOURCE R1) )))) 
697 (EQ (SETQ codecondition (EQ (VALUESOURCE R1) (VALUESOURCE R2)))) 
698 (NEQ (SETQ codecondition (NEQ (VALUESOURCE R1) (VALUESOURCE R2)))) 
699 (LT (SETQ codecondition (LT (VALUESOURCE R1) (VALUESOURCE R2)))) 
700 (LE (SETQ codecondition (LE (VALUESOURCE R1) (VALUESOURCE R2)))) 
701 (GT (SETQ codecondition (GT (VALUESOURCE R1) (VALUESOURCE R2)))) 
702 (GE (SETQ codecondition (GE (VALUESOURCE R1) (VALUESOURCE R2)))) 
703 (SUB TZ 

704 (SETQ R1 (VALUESOURCE R1)) 

705 (SETQ Ri (DIFFER (YALUESOURCE R2) R15) 

706 (SET (POINT R2 T) R1) 

707 (SETQ codecondition (ZEROP R1))) 

708 (SUBFZ 

709 (SETQ R1 (VALUESOURCE R1)) 

710 (SETQ R1 (DIFFER (VALUESQURCE R2) R1») 

711 (SET (POINT R2 D R1) 

7 (SETQ codecondition (NULL (ZERCP R1)))) 

c ; Instructions spéciales d'entrée ; 

716 (READ ; pour l'interprète sey] ; SET (POINT R1 T) (READ))) 

717 (IN ; pour le READ simulé : 

718 (SET (POINT R1 T) (CASCII (READCH)))) 

719 (INTERN ; fabrique un atome ; 

720 (SETQ R1 (СОВ (VALUESOURCE R1))) 

721 (SET (POINT R2 T) 

722 (APPLY 'GENSYM 

723 (ESCAPE &INTERN 

724 (LET (D 

725 (IF (OR (NEO (CAAR R1) 'DATA) (ZEROP (CADAR R1))) 

726 (&INTERN (REVERSE D) 

H | (SELF (МЕШ. t (ASCII (CADR (NEXTL Ң1›)))))))))) 
724 ; Instructions spéciales de sortie f 

731 (PRINI ; pour l'interprète seul ; (PRINT (VALUESQURCE R1))) 

732 (TERPRI ; pour l'interprète seul ; (TERPRI)) 

733 (QUT ; pour l'imprimeur simulé Н 

734 (SETQ R1 (VALUESOURCE R1)) 

735 (PRINC 

736 (COND 

737 CCSTRINGP R1) (CAR (MAKLIST R1))) 

738 | ((NUMBP R1) (ASCII R1)) 

739 (T R1)))) 

740 (PLEN ; retourne la longeur du P-name H 

741 (SETQ R1 (VALUESOURCE R1)) 

742 (SET (POINT R2 T) (IF (STRINGP Ri) (STRINGL R1) (PLENGTH R1)))) 
743 (PNAM ; retourne la liste des caracteres de <s> dans <d> ; 

744 (SETQ 

745 HI (VALUESOURCE R1) 

746 R1 (IF (STRINGP R1) (MAKLIST R1) (EXPLODE R1)) 

747 R2 (CDR (VALUESOURCE R2))) 

748 (MAPC R1 

749 (LAMBDA (C) 

750 (RPLACA (CDAR R2) (CASCI? C») 

751 (SETQ R2. (CDR R2))))) 

752 ( (PRATOM OUTCH) 

753 (PUSH (STATUS 0)) 

754 ; pas de ler espace, ni de /, ni de *, ni de préfixe ; 

755 (STATUS 2 21 24 25 27 28) 

756 (PRIN1 (VALUESOURCE R1)) 
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757 (6.4708 0 (POP))) 
758 (OUT8. j (TERPRID 
759 ; 
72 ; Instructions spéciales ; 
1 
762 (DRSTACK {PRSTACK (VALUESOURCE R1) STO) 
763 (STOP (46 ОРУ) 
764 4: 
722 ; Instruction illégale ; 
E ((MACHERR. 'XCT "Instruction illégale."))) 
CH : Traitement du champ continuation ; 
0 
771 (IF (AND ?instat continuation) 
772 (PROGN (INCR #ncont) {PUTINCR (CAR continuation) '!contin))) 
773 (IF (AND continuation codecondit ion) 
774 (SELECTQ (CAR continuation) 
775 (NOP) 
776 (JUMP (JUMP (CAOR continuation)??? 
777 (CALL 
778 (SETQ ST IPC . STi) 
779 (SETG xaux (LENG T4 ST) 
780 (АМО (GT xaux #5! LI SETQ #stackl хаих)) 
781 (JUMP (CADR continuation)? 
782 (RETURN (JUMP 7157202 
P ( (MACHERR 'XCT "Chenps continuation tilégal.")))) 
785 Dernières statistiques ; 
786 
787 tr (AND ?contrace (NOT (MEMO inst '(SSTACK STACK) 
788 (МАРС viregn 
789 (LAMBDA (xaux) 
730 (OR 
791 (EQ (CAR xau (CAR valregs?; 
792 (EQUAL (CAR xaux? (CAR valregs)} 
793 (PROGN 
794 (РБІМІ 510 xaux °=) 
795 (PRINTL (CAR xaux) 1) 
796 (ТЕВРВІ222 
797 (NEXTL valregs)))) 
738 (IFN ?prinstack 
799 NIL 
800 (STATUS 7 25) 
801 (TTAB 20) 
802 (PRINi “жж 'INDEX Tei 
803 (PRINTL INDEX 1) 
804 (TERPRI) 
805 (TTAB 20) 
806 (РБІМІ "жж 'ST Tei 
807 (PRINTL ST 1) 
808 (STATUS 7 0) 
809 (PRINTLEVEL 1000) 
E (TERPRI2)) 
11 
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812 ; Fonction d'impression d'un tableau : TABSTAT ; 
813 е MÀ ; 


815 (DE TABSTAT 
816 (titre ; chaîne titre du tableau ; 


817 clair ; liste des clairs du comptage ; 

818 indic ; indicateur du comptage : 

819 total ; total du comptage $ 

820 gtot ; grand total ; 

< lcomm ; Tiste des commentaires ;) 

8 ; i 

823 (STATUS 2 21 28) 

824 (PRINT |1 ".B" |1 ".TP " (PLUS (LENGTH comm) (LENGTH clair) 7) 11 
825 "$e$1" ;$4$0; |1 

826 "C; Pr ji ".C ; |" 
827 351 н | u | 1 u " C s | " 8 "ag" t itre " N&" 355 H | " | 1 " : C s | "ç 35] n | ну 
828 (IF Lcomm 

829 (PROGN 

830 ; Il y a des commentaires u 

831 (WHILE Lcomm 

832 (PRINT ".C ; | " (NEXTL сотту (NEXTL comm) -51 du 

833 (PRINT ".C ; |" 551 "1223 

834 (OR (NUMBP total) (SETQ total 0)) 

835 (OR (NUMBP gtot) (SETQ gtot 0)) 

836 (SETQ total (FLOAT total) gtot (FLOAT gtot)) 

837 (LET (nbaux 0) 

838 (MAPC clair 

839 (LAMBDA (laux ;; xaux perci perc2) 

840 (SETQ xaux (OR (NUMBP (GET Laux indic?) 000 

841 (IF (ZEROP xaux) (LESCAPE)) 

842 (SETQ 

843 perci 

Fer шт (ZEROP total) (ZEROP xaux)) 

846 Gk (// (FLOAT xaux) total) 100.)) 

847 percl (IF (> perci 0.1) (// (FIX (x perci 100)) 100.) 0) 
848 perc2 

SCH шы (ZEROP gtot) (ZEROP xaux)) 

851 (k (// (FLOAT xaux) gtot) 100.)) 

852 perc2 (IF (> perc2 0.1) (// (FIX (ж perc2 1000) 100.) 099 
853 (PRINT ".C ; |" 58 (INCR nbaux) 913 laux 222 "= " xaux 332 
854 percl 937 " $  " 342 perc2 247 " 4 " »91 "|")))) 

855 (PRINT ".C ; |" 55] "ab" 11 

856 "C; " 11 "$>$0" 
857 ;$€; 11 ".BR") 

858 (STATUS 1 21 28)) 

859 
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860 ; Analyse du code : ANACODE et épilogue ; 


861 рі” 
862 27 
Gr ; Doit être lancée AVANT toute interprétation ; 
865 (DE ANACODE 
866 (llinst ; est la liste de code à analyser ; 
867 ? ; T s'il faut imprimer les stats ; 
222 22” 2 T s'il faut analyser les instructions (statiques) ; 
870 tfunct ; liste des fonctions du code ; 
871 nfunct ; nombre de fonctions du code ; 
872 ninst ; nombre d'instructions du code ; 
Ru. ncont ; nombre de champs continuation du code ; 
875 40; codop ; 
876 opl ; opérande 1 ; 
877 cp2 ; opérande 2 ; 
878 cont : continuation ;) 
879 
E ; Pose des indicateurs des fonctions standard ; 
882 (éera nfunct 0 nvord 0 ninst Ü ncont 0) 
883 (IF ?? (МАРС ^«Linstr (LAMBDA (L) (PUT L 0 'linst)))) 
884 (IF ?? (МАРС ~lformat (LAMBDA (L) (PUT L O '!format)))) 
885 (IF 22 (МАРС місоп% (LAMBDA (L) (PUT L "0 ' !contin)))) 
886 (IF 22 (МАРС міорег (LAMBDA (L) (PUT L '0O ' loperand)))) 
= (IF ?? (МАРС ^Ltypsubr (LAMBDA (L) (PUT L 70 *'!typsubr)))) 
GH (PRINT "жжж Analyse du code contenu dans :" Llinst) 
Н Н 
891 (МАРС Llinst 
892 (LAMBDA (Linst) 
893 23 
894 ; Analyse ; 
895 H | 
896 (MAP (CDDAR Linst) 
897 (LAMBDA (inst) 
898 (IF (ATOM (CAR inst)) (LESCAPE)) 
899 CIF 
900 (OR | 
901 (NOT (LITATOM (CAAR inst))) 
902 (GT (LENGTH (CAR inst)? 5)) 
903 (LESCAPE (PRINT "CODE altéré..." inst))) 
904 ; Traitement des MACROS ; 
905 (COND 
906 («ЕП (CAAR inst) ?TNIL) 
907 (RPLACB (CAR inst) PEQ NIL. (CDAR inst)])) 
908 ((EQ (CAAR inst) 'FNIL) 
909 (RPLACB (CAR inst) D'NEQ NIL . (СПАН inst)])) 
910 ((EQ (CAAR inst) 'POP) 
911 (RPLACB (CAR inst) [MOVE "TST . (CDAR inst)1)) 
912 (ŒQ (CAAR inst) 'PUSH) 
913 (RPLACB (CAR inst) 
914 (MOVE (CADAR inst) 'TST . (CDDAR inst)1))) 
915 ; Traitement obligatoire ; 
916 (COND 
917 ((EQ (СААВ inst) 'ENTRYO 
918 (INCR nfunct) 
919 (IF (MEMQ (CADAR inst) Lfunct) 
920 NIL 
921 (МЕМ. Lfunct (CADAR inst))) 
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ei Aan 
922 (PUT (CADAR inst) 

923 (МЕМО (CADAR inst) (CDDAR Linst)) 

924 "I fva 

925 (PUT (CADAR inst) 

926 (CASSQ (CADDAR inst) 

927 * C(OSUBR . 1) (SUBR . 2) (2SUBR . 3) 
928 (GSUBR . 4) (NSUBR . 5) (FSUBR . 6999 
929 *Iftyp) 

930 (PUT (CADAR inst) (CADDDR (CAR inst) ' Iiptyp) 
931 (IF 2? (PUTINCR (CADDAR inst) * !typsubr))) 
932 ( (EQ (CAAR inst) ’BLOCK) ; expansion des blocks ; 
933 (RPLACB inst 

934 (NCONC 

935 (LET (n (CADR (CAR inst))) 

936 (IF (LEZP n) 

937 NIL | 

938 ГГ?ПАТА (CADDR (CAR inst))] 

939 e (SELF (SUBI n))1)) (CDR inst)))) 
940 (T NIL)) 

941 z; 

942 ; passe sous format interne ; 

943 z; 

944 (LET (L (CAR inst? 

945 (SETQ 

946 codop (NEXTL i) 

947 ор1 

948 CIF (АМО (MENG (СААП 1) 7 ІМСОМ61) (CDAR 1)) 
949 NIL 

950 (NEXTL 102 

951 op2 

952 (IF (AND (МЕМО (CAAR 1) '[NCONS]) (CDAR 1D ) 
953 NIL 

954 (NEXTL LD) 

955 cont . 7 | 

956 (IF (LISTP (CAR 10) 

957 ; Format non interné ; 

958 CIF (МЕМО (CAAR D '[NCONSI) (CDAR D NIL) 
959 ; Format déjà interné ; 

960 L | 

GE (RPLACB (CAR inst) [содор opl op2 . contl)) 
IH ‚ Si ne faut pas de statistiques c'est terminé z 
965 (IFN ?? (LESCAPE)) 

966 z; 

E ; Analyse statique ; 

969 (IF (МЕМО codop '(BLOCK DATA ENTRY)) (LESCAPE)) 
970 (INCR ninst) 

971 (INCR nword) ` 

972 (PUTINCR codop '!inst) 

973 ; X est le nombre de mots de l'instruction 4 

974 (SETQ x 1) 

975 (МАРС [opl ор21 

976 (LAMBDA (op) 

977 ; pour les 2 opérandes ; 

978 (COND . 

979 ((NULL op) (PUTINCR 'null * loperand)) 
980 ((MEMQ op '(Al A2 A3 A4 TST)) 

981 (PUTINCR op ‘ !operand)) 

982 (САМО (LISTP ор) (NED (CAR ор) '8)) 

983 (INCR x) 

984 (INCR nvord) 
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gege 


985 (PUTINCR 'immediat ''operand)?) 

986 ( (AND (LISTP ор) (EQ (САН op) ’@)) 

987 (ІМСВ x) 

988 СІМСВ nword) 

989 (PUTINCR "direct " !operand)) 

990 (T)))) 

991 (IF cont 

992 (PROGN 

993 (INCR ncont) 

994 (PUTINCR (CAR cont) ? !contin) 

995 (IF (МЕМО (CAR cont) '(CALL RETURN) ) 

996 (PROGN (INCR x) (INCR nuord))))) 

997 (PUTINCR 

998 (СА550С x 

999 '((1.. 1MOT) (2. 2M0TS (3. 3MOTS) (4 . 4MOTS))) 
1000 ’ i format))))) 

1001 (PRINT -5 "Nombre de fonctions définies : " nfunct) 

1002 (IF ?? 

1003 (PRINT |1 +5 "| Nombre d'instructions : |" ninst 
1004 |1 25 "| Nombre de mots : |" nuord |1 -5 
1005 "| Nombre de champs continuation : |" ncont |1 -25 "|" 
1006 553 "|")) 

1007 (IF ?? 

1008 (TABSTAT "Occurrences statiques des instructions" «Linstr '!inst 
1009 ninst 0 [" Nombre d' instructions : H ninstl)) 

1010 ?? 

1011 (TABSTAT "Occurrences statiques des formats" ~lformat '!format 
1012 ninst O 

1013 [" Nombre d' instructions SQ" 

1014 ninst 

1015 " Nombre de mots 4” 

1016 nvordl)) 

1017 IF ?? 

1018 (TABSTAT "Occurrences statiques des continuations" місопі '!contin 
1019 ncont ninst 

1020 [" Nombre de champs continuation : " 

1021 ncont 

1022 " Nombre d'instructions poU 

1023 ninst])) 

1024 (IF ?? 

1025 (PROGN 

1026 (SETQ 

1027 x 

1028 (APPLY "PLUS 

1029 (MAPCT ^Loper (LAMBDA GO (NUMBP (GET x ? loperand)))))) 
1030 | (TABSTAT "Occurrences statiques des opérandes" ^loper '!operand 
1031 x ninst | 

. 1032 [" Nombre d’opérandes visités ы 

1033 х 

1034 " Nombre d'instructions pm 

1035 ninst]))) 

1036 (IF ?? 

1037 (TABSTAT "Occurrences statiques des SUBR" «ltypsubr '!typsubr 
1038 nfunct 0 Dn Nombre de fonctions  SUBR : " nfunct])) 

1039 (IFN ? (LESCAPE) (TERPRI 2)) 

1040 (SETQ nfunct 0) 

1041 (SETQ 

1042 t (SORTL Lfunct) 

1043 Lt 

1044 '((1. OSUBR) (2. 1SUBR) (3. 2SUBR) (4 . 3SUBR) (5 . NSUBR) 
1045 (6 . FSUBR))) 

1046 (WHILE L 

1047 (PRINT (INCR nfunct) 95 (CAR D „17 
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1048 (CASSQ (GET (NEXTL 1) "Iftyp) Lt) 530 (INCR nfunct) +35 (САВ 1) 
1049 247 (CASSQ (GET (NEXTL 1) "Iftyp) 102») 

1050 

1051 ; Epilogue standard E 

1092 ы A 

1053 ;; 

1054 ; remet la table de lecture précédente ; 

1055 

1056 (READ. TABLE READ. TABLE) 

1057 


1058 (DE HOT.STRRT O 
1059 (STATUS 2 34) 


1060 (STATUS 1 1) 

1061 (STATUS 2 27) 

1062 "# Simulateur de la machine VCMC2 chargé. ") 
1063 

1064 (НОТ. ЅТАВТ) 

1065 
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CROSS REFERENCE 


Signification des codes associés aux numéros des lignes : 


# définition de fonction de type DE DF DM DMC ou ENTRY 
& définition de fonction de type ESCAPE, ESCLOOP 
: définition d'étiquette dans PROG, DO, LAP ... 
‚ variable argument d'une fonction 
= variable affectée par SETQ ou SETQQ 
° nom apparaissant dans une S-expression quotée 
- code instruction assembleur 
э DMC 62 
> DMO 60 
> DE 58 
ANACODE DE 865 
CODE DF 53 
HOT.START DE 1058 
JUMP DE 426 
MACHERR DE 409 
MOVE DE 421 
POINT | DE 335 
PRININST DE 114 
PRINTL DE 99 
PRSTACK DE 435 
SORTL DE 75 
TABSTAT DE 815 
VALUESOURCE DM 331 
VCMC2 DE 204 
XCT DE 461 
| DMC 70 
DMO 68 
DE 66 
1 » 584 58° 607 60624 62’ 
2 210 794 
3 2-13 853 
4 -14 117 
5 515 403 
6 517 1047 
7 2-22 853 
8 530 1048 
9 532 853 
10 535 1048 
11 37 854 
12 -42 854 
13 247 854 1049 
14 -5 117 1001 1003 1004 1004 1005 1047 
15 -51 827 827 832 833 854 855 
16 3553 1006 
17 -55 827 
18 -6 413 415 
19 -8 827 853 
20 !соп4іп 251° 300° 772° 885” 994" 1018” 
21 !cval 583’ 590” 
22 !format 250° 292° 504” 884° 1000” 1011” 
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! ftyp 
! fval 
! inst 
! Label 
loperand 


lplist 
! point 
!ptyp 
l typsubr 
#nbcons 
#ncont 
#nincr 
#ninst 


#noper 
#nword 
#stackl 
& 


&INTERN 
&STOP 


?contrace 
?instat 


?instrace 
?labstat 
?pointrace 
?ргіпзїаск 
?stat 
?stepper 


1048” 


972. 
320” 
352” 


550- 


550- 
290 
467 
339 
501 
350- 


1049” 
1008” 
373” 


619 


230 
&71 


549 


APPENDICE B 


374° 886° 979' 981: 
623 

293 295 300 304 

550= 780  780- 

931 965 1002 1007 
527- 529  532- 541= 
291 298 305 339 

771 

527= 529 531. 542- 
529  533- 540- 798 

535- 538- 

472 980" 

980” 

980” 

980” 
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985' 


307 


1010 


787 
344 
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82  ANACODE 8658 

83 AND 111 358 377 467 498 77 773 780 787 948 95 
982 986 

84 АРРЕМО 470 

85 APPLY 722 1028 

86 ASCII 727 738 

87 ATOM 102 116 353 369 443 476 694 898 

88 BLOCK 518 932’ 969 

89  BOUNDP 128 132 136 183 187 191 195 199 

90 C 749 750 

91  CAADR 385 

92 CAAR 725 901 906 908 910 912 917 932 948 952 95 

93 САПАН 725 914 912 921 922 923 .925 930 

94  CADDAR 926 931 

95  CADDDR 930 

96  CADDR 235 938 ` 

97 CADR 227 222 376 382 383 384 453 575 586 727 77 

98 CALL 1527 417° 500° 777 995 

99 САН 93 93 159: 233 260 266 270 272 273 333” 36 


372 376 377 378 388 390 394 395 396 400 40 
442 448 450 500 555 555 557 558 568 5/3 525 
596 602 608 614 633 635 737 772 774 791 79 
792 792 795 898 502 907 909 911 913 930 93 
938 944 956 961 982 986 994 995 1047 1048 


100 CASCII 263 4717 718 750 

101 CASSOC 503 998 

102 СА550 514 926 1048 1049 

103 CDADR ` 387 

104 СПАН 750 907 909 911 948 952 958 

105 CDDAR 896 914 923 

106 СООН 454 

107 СОН 89 95 97 159° 377 377 383 451 456 555 SS 

е 570 720 747 751 933 

108 СМТН 567 572 681 684 

109 CODE 53# 

110 COND 342 375 684 736 905 916 978 

111 СОМ5 160° 618 

112 CVAL 1597 580 

113 ПАТА 376° 385: 518 568" 573" 725” 938° 969” 

114 DE 98 66 79 99 114 204 335 409 421 426 43 
461 815 865 1058 

115 DF 93 

116 DIFFER 284 646 705 710 

117 DISPLAY 469 

118 DISPT 162' 682 

119 DIV 161° 651 

120 DM 331 

121 DMC 62 70 

122 DMO 60 68 

123 ENTRY 511 917” 969 | 

124 EPROGN 389 

125 EQ 162° 263 264 351 366 372 376 377 378 388 6 
697 791 906 9077 908 910 912 917 932 986 

126 EQN 85 

127 EQUAL 792 

128 ESCAPE 258 723 

129 EVAL 265 

130 EVALA1 317' 

131 EXPLODE 471 746 

132 FATOM 162° 692 

133 FIX 847 852 

134 FLIST 1627 694 
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135 FLOAT 282 836 836 846 851 

136 FNIL 908” 

137 FNUMB 162° 6596 

138 FSUBR 168° 516” 928” 1045” 

139 ЕТҮР 160” 603 

140 FVAL 160° 597 

141 GE 104 1627 361 447 702 702 
142 GENSYM 722' 

143 GET TA 317 318 390 593 599 605 611 840 1029 1048 
144 GETL 583 

145 GT 162° 359 701 701 780 902 


7 85 93 102 104 107 108 109 110 116 249 
250 251 252 260 264 266 270 273 278 288 291 
298 305 315 319 339 344 347 352 353 354 361 
366 371 372 385 403 414 429 438 440 443 445 
447 451 454 463 467 472 476 491 492 495 496 
497 568 573 585 587 725 742 746 771 773 1787 
828 841 844 847 849 852 883 884 885 886 887 
838 899 919 931 936 948 952 956 958 969 991 


148 IFN 120 261 348 397 487 545 798 965 1039 

149 IN 163' 717 

150 INCR 339 465 466 495 496 500 619 623 772 853 918 
970 971 983 984 987 988 993 996 996 1047 1048 

151 INDEX 159' 218, 562 563  564- 567 572 802° 803 

152 INTERN 163° 719 

153 IRCAMP 467 

154 JUMP 1527 4268 433' 500° 681 684 776 776 781 782 

155 JUMPX 161' 679 | mM 

156 L 75, 78 81 81 249 249 250 250 251 251 252 
252 409, 413 883 883 884 884 885 885 886 886 

M 887 887 

157 L1 82  84- 85 87 88. 88 89 90 o, 9 92 
93 9  94- 94 95 J=- 95 

158 L2 75, 91- 93 94 894. 96 

159 LAMBDA 249 250 251 252 319  587' 749 789 839 883 884 
885 886 887 892 897 976 1029 

160 LCOD 205, 238 

161 LE 162' 700 700 

162 LENGTH 81 357 447 779 824 824 902 

163 LESCAPE 85 116 438 441 476 841 898 903 965 969 1039 

164 LET 82 255 442 724 837 935 944 

165 LEZP 936 

166 LIST 120” 

167 LISTP 259 266 429 495 496 499 585 693 956 982 986 

168 LITATOM 487 685 691 692 901 

169 75, 912 94 95- 96 

170 LOGAND 89 161° 665 666 

171 LOGOR 161° 662 663 

172 LOGSHIFT 86 

173 LOGXOR 161° 668 669 

174 LT 162° 699 699 

175 12Р 467 

176 MACHERR 350 353 362 367 369 386 298 402 4098 433 476 

` 487 519 569 574 767 783 

177 MAKLIST 737 746 

178 MAP 896 

179 MAPC 249 250 251 252 748 788 838 883 884 885 886 
887 891 975 | 

180 MAPCAR 471 

181 MAPCT 319 1029 
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182 MEMQ 
183 MERROR 


214 PRINC 
215 PRINI 
216 PRININST 
217 PRINT 


218 PRINTL 
219 PRINTLEVEL 
220 PROGI 

221 PROGN 


222 PRSTACK 
223 PRSTAT 
224 PTYP 
229 PUSH 
226 PUT 


227 PUTINCR 
228 Q 
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675 
1044” 
346 
738 


183 
790 


260 


266 


268 


887 
502 


271 


513 
772 


982 


271 
950 


692 


270 
849 


272 


386” 
563 
614 
664 


910” 


120 
794 


414 
903 


733 


787 


274 
954 


696 


381 
900 


273 


398” 
575 
621 
667 


413 
802 


415 
1001 


829 


596 
930 
972 


919 


368 


1048 


712 


393 


274 


992 


602 
979 


Page B-28 


229 QUO 
230 QUOTE 
231 R1 


232 R2 


233 READ 
234 READ.STD 
235 READ. TABLE 


253 SFTYP 
294 SFVAL 
299 SILENCE 
298 SINDEX 
257 SORT 


265 


913 
998 


933 


961 
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1026 


779 
1040 
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258 SORTL 758 158 319 1042 


299 SPLIST 160' 594 

260 SPTYP 160' 612 

261 SSTACK 160° 630  787' 

262 ST 217, 2372 353 357  363- 363 364 366 368 368 629 
631= 633 635 636 762 778= 778 779 806” 807 

263 STACK 160° 629 787 

264 STATUS 43 753 755 757 800 808 823 858 1059 1060 1061 

265 5ТЕР 524 

266 5ТОР 164° 237° 763 

267 STRINGL 742 

268 STRINGP 737 742 746 

269 SUB 161' 644 

270 5081 450 453 456 939 

271 SUBFZ 163 708 

272 SUBTZ 163’ 703 

273 Т 370 402 424 486 521 521 521 525 525 525 525 


555 556 557 558 563 575 584 587" 590 593 596 
599 602 605 608 611 614 621 525 629 633 637 
643 647 650 65% 658 664 667 670 687 706 711 


274 ТАВ5ТАТ 289 292 299 305 318 815# 1008 1011 1018 1030 1037 

275 ТАТОМ 162° 691 

276 TERPRI 68 116 121 165 414 455 732 732 758 796 804 
810 1039 

277 ТІМЕ5 649 

278 TLIST - 162° 693 

279 TNIL 906” 

280 TNUMB 162” 695 

281 ТОР5Т 161” 632 

282 TRACE 520 

283 ТВМОР 467 

284 TST 148’ 351° 363- 363 368= 7827 911° 914° 980’ 

285 TTAB 60 439 801 805 

286 TYI 263 264 

287 TYO 263 

288 TYS 264 

289 UNSTEP 526 

290 UNTIL 263 

291 UNTRACE 922 

292 V 409, 412 

293 VALUESOURCE 3314 423 428 555 556 557 558 564 566 567 572 

- 582 589 592 595 598 601 004 607 619 613 620 


620 624 624 631 636 652 642 645 646 649 649 
652 653 656 657 663 663 666 666 669 669 680 
681 683 683 691 692 693 694 6595 696 697 697 
698 698 699 699 700 700 701 701 702 702 704 
705 709 710 720 731 734 741 745 747 756 762 


294 ҮСМС2 2045 

295 WHILE 92 259 831 1046 

296 XCONS 160° 622 624 | 

297 XCT 268 417 461# 476° 487' 5197 5697 5747 767° 783 

298 ХМОУЕ 159° 571 

299 ХТОР5Т 161” 634 | | 

Bs SE Se 445 467 707 712 725 841 844 3844 849 849 
302 adef 335, 343 344 345 346 351 352 369 369 372 375 


376 377 377 377 378 382 383 384 388 389 390 
394 395 396 400 402 403 

303 clair 817, 824 838 

304 codecondition 256 486= 691- 692» 693= 694« 695a 696= 697 698« 699= 
700= 701- 702- 707= 712- 773 | 

305 содор 946= 961 969 972 
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306 cont 878, 955= 961 991 994 955 

307 continuation 256 485- 499 500 512 543= 771 772 773 774 776 
781 

308 а 442 445 450 453 

309 direct 148° 373° 989 

310 gtot 820, 835 835- 836- 836 849 851 

311 i 114, 116 116 117 117 119 120 120 875, 

312 idest 335, 348 354 389 

313 immediat 148' 374' 985” 

314 indic 818, 840 

315 inst 256 482- 487 491 507 787 897 898 901 902 903 


906 907 907 908 909 909 910 911 911 912 913 
914 914 917 918 921 922 923 925 926 930 930 
j 931 932 933 935 938 939 944 S61 
316 L 331, 333 333  481- 482 483 484 485 724 726 727 
944 S46 948 948 950 3952 92 94 956 958 958 
960  1042- 1046 1047 1048 1048 1049 


317 larg 209, 233 234 235 236 

318 laux 53, 53 839 840 853 

319 Lcomm 821, 824 828 831 832 832 

320 Lfunct 870, S919 921 1042 

321 Llinst 415 461, 476 481 892 896 923 

322 llinst 866, 889 891 

323 Lt 1043= 1048 1049 

324 n 99, 104 106 107 108 109 110 112 435, 440 456 
935 936 939 

325 nbaux 58, 58 60, 60 66, 66 68, 68 837 853 

326 ncont 873, 882- 993 1005 1019 1021 

327 nfunct 871, 882- 918 1001 1038 1038 1040- 1047 1048 

328 ninst s 882- 3970 1003 1009 1009 1012 1014 1019 1023 1031 

329 null 148" 347' 979? 

330 пиога 8822 971 984 988 996 1004 1016 

331 op 976 972 980 981 982 982 986 986 

332 opl 876, 3947. S961 975 

333 op2 877, 951= 961 975 

334 percl 839  843- 847. 847 847 854 

335 perc2 839 8482 852. 852 852 854 

336 runtime 227, 2452 282 

337 s 99, 102 103 107 107 108 108 109 109 110 110 
111 442 443 444 447 448 450 451 453 454 

338 stack 435, 438 442 456 

339 titre 816, 827 

340 total 819, 834 834. 836= 836 844 846 

341 valregs 256 472= 791 792 797 

342 x 228, 272- 273 273 4317. 319 319 319 320 322 494. 


495 496 500 501 503 974- 983 987 5995 998  1027- 


343 xaux | 256 335, 357= 359 360 361 380- 385 387  392- 397 
399= 399 400 401 409, 414 414  583- 585 586  635- 
637  779- 780 780 789 791 792 794 795 839 840- 


344 ( 106” 

345 | 664 EG’ 684 704 70’ 

346 |1 824 8264 824 825 826 827 827 855 856 857 1003 
1004 1004 1005 

347 ) 112' 

348 -UNDEF 587” 

349 rinterpreter 128° 128- 384 396 

350 «lcont 152. 251 299 885 1018 

351 format 144= 250 292 884 1011 

352 ~linstr 157= 249 289 883 1008 

353 «loper 148= 252 306 886 1029 1030 
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RE A RÉ PP RER RE 


354 ^lregn 140- 
355 «Ltypsubr 168- 
356 +pprinter 132' 
357 «reader 136” 


358 ~stacklength 172= 


788 

887 1037 

132- 383 395 
136- 382 394 
361 
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CO 00 J 0) U1 E> CO N => 


APPENDICE C 


UCMC2R P VLI 
LECTEUR 59) en machine VCMC2 


mtt 


(CROSSF V2R T T T {NIL/T} T T) 
{NIL/T} si VERSATEC 


44 чь ча C IA Wa Wa 


— 


Jéróme CHAILLOUX 


Département d'Informatique 
Université de Paris 8 - Vincennes 


Tél : 374 12 50 poste 299 


L.I.T.P. {CNRS LA 248) 
2 Place Jussieu 75221 Paris Cédex 05 
Tél : 336 25 25 poste 53-70 


I.R.C.A.M. 
31 Rue St Merri 75004 Paris 
Tél : 277 12 33 poste 48-48 


е, Va ча чо 4% Va 4% %% 9% Va a 9% 9% Ve 4% Ve 


(STATUS 2 1 2) 
: Pour prettyprinter correctement le code ; 


(DF CODE (L) L) 


; Pour contrôler la lecture ; 


(DMC "5" O COUTSTR (STRING (READ))) , (NOP)) 
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Ce fichier doit être édité au moyen de : 


Route de la Tourelle 75571 Paris Cédex 12 


tu ta Wa 44 9%: Va Va Wa Ve Vo mn 4% 5% Ng 


en Wa Va Ve Va 4. Oy A II 


Page C-2 APPENDICE C 
md T ———————— —M— PH АИ x 


37 ; Imprimeur VLISP ; 
38 J—ə 


39 

40 (RPLACA '«^reader 

41 (CODE NIL 

42 

43 iI 5 
44 ; | | ; 
45 zl Lecteur - VCMC2 |; 
77 А (à utiliser avec WV2I.VLI) Б 
48 ІН---------------------------; 
49 

E: ; Initialise le lecteur ; 

52 READINI:MOVE '0,(@ RINGUR) ; rien à relire ; 
E MOVE NIL, (8 IMPLI), [RETURN] ; dans READ ; 

59 

56 ; Accès au caractère physique ; 

Si ; doit mettre dans A4 le caractère suivant ; 

59 

60 

61 ; Le plus simple ; 

62 


63 INCHB: IN Аё, , [RETURN] 
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TIET EE 


Ба ; Accès au caractère logique ; 
deeg 
66 
67 
68 z GETCH : lit 1e caractére suivant ou celui à reingurgiter ; 
69 2 dans le flux d'entrée courant ; 
70 z retourne A4 < le caractère ; 
71 i A3 < le type du caractère (type-ch) ; 
72 : type-ch = 0 : caractéres null (à ignorer) ; 
73 { type-ch = 1 : début de commentaires  ; 
74 Б type-ch = 2: fin de commentaires ; 
75 ; type-ch = 3 : quote caractère ; 
76 ; type-ch = 4 : début de liste ; 
77 ; type-ch = 5 : fin de liste ; 
78 L type-ch = 6 : début de liste crochée ; 
79 г type-ch = 7 : fin de liste crochée ; 
80 ; type-ch = 8 : point ; 
81 2 type-ch = 9: séparateur nul ; 
82 : type-ch = 10: macro-caractère ; 
83 2 type-ch = 11 : délimiteur de chaîne de caractères ; 
o ; type-ch = 12 : caractère normal ; 
86 GETCH: EQ (8 RINGUR),'0, [JUMP (GETCH1)1 ; vide ; 
87 MOVE (6 RINGUR) , A4 ; recupère le caractère ; 
SS MOVE 0, (@ RINGUR), [JUMP (GETCH2)] ; et l'efface ; 
90 GETCH1: ENIL ` (8 IMPLI),, [JUMP (GETCH3)] ; on se trouve dans IMPLODE ; 
91 NOP „s [CALL CINCHB)] ; lecture physique ; 
92 GETCH2: ;** recherche du type ; 
93 SINDEX (TABCH) ; charge le registre d'index ; 
В XMOVE A4,A3, [RETURN] : АЗ + Те type ; 
96 GETCH3: MOVE (8 IMPLD) ,A&4 : récupère la liste IMPLODE ; 
97 TNIL  A4,, [JUMP (GETCH6)] : elle est vide ; 
98 FLIST A4,, [JUMP (CERLEC1)] : c'est une erreur ; 
99 CDR Аё, (@ IMPLD) ; sauve le reste ; 
100 CAR A4, Аё : A4 « le caractère suivant ; 
101 PNAM A4, (BUFCH) ; BUFCH < PNAME du caractére ; 
102 MOVE (е BUFCH), A4, [JUMP (GETCH2)] 
103 ; A4 < le ler caractère du Pname ; 
104 GETCHG: MOVE ”Т,(6 IMPLD) ; marque liste vide ; 
12 MOVE °" ".A4, [JUMP (бЕТСН221 ; séparateur normal ; 
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107 ; Accès au caractère logique valide ; 

108 Gem 

109 

110 ; GETCU : retourne dans A4 le caractère LISP valide suivant ; 
111 z ¿raite les commentaires et les caractàres quotés ; 
112 ; retourne dans A3 le type du car. valide (type-cv) ; 
113 z type-cv = 0 : ( ; 

114 > type-cv = 1: 4 

115 A type-cv = 2 : ; 

116 ; type-cv = 3 : ; 

117 > Lype-cv = 4 : . ; 

118 ; type-cv = 5 : séparateur 2 

119 ; Еуре-су = 6 : macro-caractère 3 

120 z type-cv = 7 : délimiteur de chaîne $ 

B | Z type-cv = 8 : normal P-name ; 

123 GETCV1: NOP ›, [CALL (GETCH)] ; nouveau caractère ; 

124 EQ A3,'1, [JUMP (GETCV)] ; Si nouveau début commentaires A 
125 — NEQ A3,'2, [JUMP (GETCV1)] ; si non-fin commentaires ; 

126 GETCV: ;"* point d'entrée ; 

127 NOP |, | [CALL (GETCH)] ; lit un caractère ; 

128 EQ A3,'0, [JUMP (GETCV)] ; Saute tous les nulls ; 

129 NEQ AS,'3, [JUMP (GETCV2)] ; test quote caractère ; 

130 NOP >» [CALL (GETCH) J ; relit un nouveau caractére ; 
2 MOVE 8, АЗ, [RETURN] ; force le type normal - 4 ; 

133 GETCV2: EQ AS,'1,LJUMP (GETCV1)] ; si début commentaires ; 

134 EQ AS,'2, [JUMP (GETCV)] ; ignore les fin de commentaires 7 
e SUB ”4,АЗ, [RETURN] ` ; retourne type - 4 ; 
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TA ; Accès à l'unité syntaxique suivante ; 
Аан ааа аьаа 
139 
140 
141 ; RDI : lit l'unité syntaxique suivante ; 
142 1 retourne dans A3 son type : ; 
143 2 type-us = 0 : z 
144 2 type-us = 1: ) ; 
145 ; type-us = 2 : [ ; 
146. ;  type-us = 3: ] i 
147 ; type-us = 4 : I H 
148 : type-us = 9 : objet ; 
E 2 {et А1 contient l'objet) ; 
151 А01: NOP ‚, [CALL (GETCV)1 : caractère suivant ; 
122 JUMPX  (RDTB1), A3 ; aiguillage sur le type du caractère ; 
154 RDTB1: DATA  (RDPARO) : type-cv = 0 : í : 
. 155 DATA (RDPARF) : type-cv = 1 : ) ; 
156 DATA (POPJ) : type-cv = 2 : Í ; 
157 DATA РОР.) ` : type-cv = 3 : ] ; 
158 DATA РОР.) : type-cv z 4 : . ; 
159 DATA  (RD1) " ; type-cv e 5 : séparateur ; 
160 DATA  (RDMAC) z type-cv = 6 : macrocaractëre ; 
161 DATA (RDSTR) ; type-cy = 7 : délimiteur de chaînes ; 
122 DATA (RD2) ; type-cv = 8 : normal P-name ; 
164 RDPARO: | ; traitement í ; 
ES ADD °1, (@ RDPRD), [RETURN] ; comptage du pretty-read ; 
167 RDPARF : ; traitement ) ; 
168 SUB *1, (8 RDPRD) 
169 GE (8 RDPRD),^0, [RETURN] ; correct ; . ` 
TSi MOVE 70,(6 RDPRD), [RETURN] ; force un 0 ; 
172 RDMAC: : 2. : traitement des macro-caractères ; 
173 MOVE A4, A1, [CALL (ASCIIDI] ; convertit le caractère en atome ; 
174 MOVE  NIL,A2, [CALL (APPLY)] ; et appelle la fonction ; 
172 MOVE — '5,A3, [RETURN] ; type-us = objet NIR ; 
177 RDSTR: ; traitement des chaînes de caractéres ; 
178 MOVE  ’0,A2 : init index sur BUFAT ; 
179 RDSTR1: NOP ,. [CALL (GETCH)] ; caractère simple suivant ; 
180 EQ A3,'11, [JUMP (RDSTR21; c'est la fin ; 
.181 SINDEX (BUFAT) | ; init INDEX ; 
182 MOVEX A4,A2 ; charge le nouveau caractére ; 
183 ADD 71,А2 ; avance l'indice ; 
184 LT A2, 30, [JUMP (RDSTR1)1; 11 est correct ; 
185 MOVE — '2,A1, [JUMP (ERLEC)] ; sinon c'est une erreur ; 
186 RDSTR2: SINDEX (BUFAT) ; repositionne l'index ; 
187 MOVEX '0,A2 : force le dernier 0 ; 
188 INTERN (BUFAT) , А1 : interne l'atome ; 
189 SCVAL А1,А1 ; qui devient une constante ; 
E MOVE '5,A3, [RETURN] ; type-us = objet МОР; 
192 RD2: T | ; traitement atome normal ; 
193 MOVE ”0,А2 ; init indice sur BUFAT ; 
194 RD21:  SINDEX (ВИҒАТ) .; init INDEX ; 
195 ` MOVEX A4,A2 ; charge le caractère dans BUFAT ; 
196 ADD 71,А2 . ; avance l'indice ; | 
197 GE A2,'30, [JUMP (ERLEC3)1; j1 n'est plus correct ; 
; caractëre valide suivant ; 


198 NOP ,.UCALL (GETCV)] 
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199 EQ A3,*8, [JUMP (RD2D1 — ; si type-cv = normal ; 
200 MOVE — A4,(8 RINGUR) ; pour le relire ; 

201 SINDEX (BUFAT) ; repositionne T'INDEX : 
202 MOVEX ”0,А2 ; Force le dernier 0 ; 
203 INTERN (BÜFAT), A1 | ; interne l'atome ; 

298 МОҮЕ ' 5, A3, [RE TURN) ; type-us = objet VIS ; 
2t ; Macro-caractére standard z 

208 ENTRY  /',0SUBR 

209 

210 ; '<s> = (QUOTE <s>) ; 

212 la: NOP , |, [CALL (READI)] ; Tit l'exprssion <s> ; 
213 XCONS  NIL,A1 ; forme (<s>) ; 

A CONS 'QUOTE, A1, [RETURN] ; puis (QUOTE (52) ; 

2 ; Définition d'un macro-caractère z 

52 ENTRY ОМС, FSUBR, 1 

220 DMC: NOP „, [CALL (DE)] ; défini la fonction ; 
221 PUSH Al ; Sauve le caractère ; 
222 MOVE — '10,A2, [CALL (TYPECH)] ; type-ch = macro caractère ; 
55. РОР A1, , [RETUR RN] ; et c'est tout ; 
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225 ; Accès à l'expression ; 
226 z— v HU ; 
227 
228 
229 ; READI : lecture interne ; 
527 : retourne dans А1 l'expression lue suivante ; 
232 READI: NOP „ , [CALL (RD12] ; us suivante ; 
E READO: JUMPX  (READT1),A3 ; aiguillage sur le Ier type-us ; 
235 ВЕАОТ1: DATA (READ2) ; type-us = 0 : ( ; 
236 DATA (ERLECA) : type-us = 1: ) ; 
237 DATA (READ1) ; type-us = 2: [ ; 
238 DATA (ERLEC4) : type-us = 3 : ] ; 
239 DATA (ЕНІ ЕСА) ; type-us = 4 : . ; 
2 DATA (POP. ; type-us = 5 : objet ; 
242 ; un [а été lu ; 
243 
244 READ1: NOP „ , [CALL (RD1)1 : us suivante ; 
245 EQ A3,'3, [JUMP (FALSE)] ; c'est donc [] => NIL ; 
246 MOVE — NIL, A2 ; fabrique une tête de liste ; 
247 CONS "*MARK*, A2 ; (*MARK*) ; 
248 PUSH A2 ; sauve la téte de liste ; 
0 PUSH А2, , [JUMP CREAD31)] ; traite l'us ; 
251 ; une ( a été lue ; 
252 
253 READ2: МОР , | [CALL (RD1)] ; us suivante ; 
254 EQ A3,?1, [JUMP (FALSO 1. ; () => NIL ; 
255 NOP „ | [CALL (READO)] : ler élément ; 
256 XCONS  NIL,A1 ; fabrique le ler doublet ; 
257 .. . PUSH A ; sauve le ler doublet ; 
258 READS: ; traite l'us suivante ; 
259 | PUSH А1,, [CALL (CRD1)] ; us suivante ; 
260 READ31: | ; elle est prête ; 
JUMPX  (READT2) ,A3 ; aiguillage sur le type-us ; 
263 READT2: DATA (READS) : type-us = 0 ( ; 
264 DATA (READ7) ; type-us = 1 J- 3 
265 DATA (READS) ; type-us = 2 : ІТ; 
266 DATA (НЕАП8) ; type-us = 3 : ] ; 
267 DATA (READ9) s type-us = 4: . ; 
< DATA (READ4) : type-us = 5 : objet ; 
2 ; rajoute l'objet МІР contenu dans А1; 
- 272 READ4: ХСОМ5 NIL,A1 ; nouvel élément ; 
273 | РОР А2 : récupère LAST ; 
2s SCDR A1,A2, [JUMP (READS)] ; et c'est tout ; 
472 ; traite une ( ; 
216 READS: PUSH (READ4),, [JUMP (CREAD2)1 ; JRST HACK ; 
280 ; traite ип [ ; 
1 
252 READS: PUSH  (READ4),, [JUMP (READ1)1 ; JRST HACK ; 
284 ; traite une ) ; 
285 
286 READ7: POP А1 : dernier doublet ; 
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287 READ71: РОР А1 ; ler doublet ; 

288 CAR А1,А2 Р A2 pour tester la marque ; 
289 NEQ А2,” жМАВКж, [RETURN] ; S'il n'y a pas de marque ; 
2 MOVE '5, A1, [JUMP (ERLEC)] ; probablement [ ... ) : 

292 ; traite un ] ; 

293 

294 READ8: POP A1 ; dernier doublet ; 

295 POP A1 ; ler doublet ; 

296 CAR A1, A2 ; A2 pour tester 1a marque ; 
297 NEQ A2, ' xMARKx, [JUMP (ERLEC6)1 ; il manque la marque ; 
Z SCAR "LIST, A1, CRE TURN] ; fabrique (LIST ...) ; 

300 ; traite un . ; 

301 

302 READS: МОР „ , [CALL CREADI)] ; lecture de l'expression : 

303 PUSH  A1,, [CALL (CRD1)1 ; sauve sa val et lit le séparateur ; 
304 POP A1 ; dernière expression ; 

305 POP A2 ; dernier doublet ; 

2 JUMPX  (READT3) , АЗ ; aiguillage sur le type dernière us ; 
308 READT3: DATA (ERLEC7) ; type-us = 0 : ( ; 

309 DATA (READ91) ; Lype-us = 1: ) ; 

310 DATA (ЕНІ ЕС?) ; type-us = 2 : [ ; 

311 DATA (READS2) ;type-us = 3 : ] ; 

312 DATA (ERLEC7) z type-us = 4 : . ; 

2 DATA (ERLEC7) ; type-us = 5 : objet ; 

315 READS1: j cas: . 485) 

2 SCDR A1,A2, [JUMP (READ71)1 ; paire pointée simple ; 

318 READS2: ; cas: . <s> ] ; 

319 XCONS NIL,A1 ; Fabrique (<s>) ; 

320 SCDR Al,A2 ` 2 ; qui devient 1e dernier élément ; 
321 POP А1 ; edd doublet ; 

322 CAR Al, A3 ur tester la marque ; 

323 NEQ АЗ, ” жМАВКж, [JUMP (ERLEÉ8) Ï ; elle n'est pas marquée ; 
324 CDR A1,A3 ; A3 « adresse ler élément ; 
325 EQ A3,A2, [JUMP (READ932] ; forme [ 51. 52 ] => CONS ; 
326 SCAR *MCONS, A1, [RETURN] ; forme [sl 52 ... sN-1 . SN] ; 
SE READS3: SCAR "СОМ, A1, [RETURN] 

329 ; Erreurs à 1a lecture ; 

330 ;--------------------; 

331 | 

332 ERLEC1: MOVE 71,А1, [JUMP (ERLEC)] 

333 ERLEC3: MOVE ”3,А1, [JUMP (ERLEC)] 

334 ERLEC4: MOVE — '4,A1, [JUMP (ERLEC)] 

335 ЕРІ ECG: MOVE ”6,А1, [JUMP (ERLEC)] 

336 ERLEC7: MOVE 77,А1, [JUMP (ERLEC?] 

2 ERLEC8: MOVE  '8,A1, [JUMP (ERLEC)] 

339 ERLEC: PUSH › xMARKx ; Fin des arguments ; 

340 PUSH '""Erreur de syntaxe :"; message ; 

ee PUSH А1,, [JUMP (SERROR)] ; numéro de l'erreur ; 
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343 ; Fonctions standard ; 
344 4------------/ 
345 
346 
347 ; (READ) ; 
348 
n ENTRY READ, 0SUBR 
351 READ: NOP , | [CALL (RD1)1 : première us ; 
352 EQ A3,'1, [JUMP (READ)] ; pour sauter toutes les ) еп trop ; 
NOP ,» JUMP CREADO)] ; on lit vraiment ; 
355 ; (IMPLODE 1) ; 
356 
52! ENTRY IMPLODE, 1SU8R 
359 IMPLODE:MOVE  A1,(@ IMPLD) : range la liste à interner ; 
360 MOVE 'T,(@ IMPLI), [CALL (READ)I ; indicateur IMPLODE=vrai ; 
> MOVE  NIL,(@ IMPLI), [RETURN] ; indicateur IMPLODE-faux ; 
363 ; (READCH) ; 
364 
SC ENTRY  RERDCH, OSUBR 
i READCH: PUSH ` (ASCIID,, [JUMP (GETCH)] 
369 ; (PEEKCH) ; 
370 
SUE ENTRY  PEEKCH, OSUBR 
373 PEEKCH: NOP ,» [CALL (GETCH)] 
Se MOVE Алд, (@ RINGUR), [JUMP (А5С11121 
LE ; (ASCII n) retourne le caractère de code n ; 
7 
378 ENTRY  ASCI1,1SUBR 
379 


ASCII interne ; 


380 ASCIII: MOVE A4,A1 
prépare le tampon atome ; 


381 ASCII: SINDEX (BUFAT) 


382 MOVEX A1,'0 ; charge le code du caractère ; 
383 MOVEX ^"'0,'1 ; indique 1a fin du tanpon ; 
32: INTERN (BUFAT),A1, [RETURN] ; intern et rentre ; 
5 
Fe ; (CASCII c) retourne le code du caractère c ; 
8 | 
355 ENTRY САЅСІ 1, 150ВА 
390 CASCII: РМАМ А1, (BUFCH) : représentation externe ; 
221 MOVE (@ BUFCH),A1, [RETURN] ; retourne le code et rentre ; 
2 
SS ; (TYPECH c n) accès/modif au type du caractère ; 
TE ENTRY TYPECH, 2SUBR 
397 TYPECH: NOP , | [CALL (CASCII)] : conversion du caractàre ; 
398 SINDEX (ТАВСН) : adresse de la table ; 
399 TNIL  A2,, [JUMP (TYPECH1?] ; lecture seule ; | 
&00 MOVEX А2,А1 ; force 1e nouveau type ; 
452 TYPECH1:XMOVE  A1,A1, [RETURN] : le type actuel ; 
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403 ; Données utilisées par le lecteur ; 

404 `` _ w III s 

405 

406 RINGUR: DATA- 0 ; caractère à reingurgiter : 


407 RDPRD: DATA 0 


409 IMPLI: DATA  NIL 
410 IMPLD: DATA  NIL 


; prof. read (cf: pretty-read) ; 


; “NIL si READ, =T si IMPLODE ; 
liste des caractères ; 


` 


` 


411 
412 BUFAT: BLOCK- 30,0 ; tampon atome ; 
E BUFCH: BLOCK 30,0 ; tampon caractére ; 
1 ; Code des caractères de la table TABCH ; 
1 
417 ; type-ch = 0 : caractères null (à ignorer) ; 
418 u type-ch < 1 : début de commentaires ; 
419 ; type-ch = 2: fin de commentaires ; 
420 ; type-ch = 3 : quote caractère ; 
421 z type-ch = 4 : début de liste ; 
422 ; type-ch = 5 : = fin de liste ; 
423 s type-ch = 6 : début de liste crochée 3 
424 ; type-ch = 7 : fin de liste crochée ; 
425 2 type-ch = 8 : point ; 
426 : type-ch = 9 : séparateur nul ; 
427 Z type-ch = 10 : macro-caractère ; 
428 : type-ch = 11 : délimiteur de chaîne de caractères ; 
5 Z type-ch = 12 : caractère normal ; 
431 TABCH: ; Table des caractères ; 
432 DATA 0 ; 00 NULL ; 
433 BLOCK 7,12 ; 01-07 tA-1G ; 
434 BLOCK 5,9 ; 10-14 tH-*L BS TAB LF UT FF ; 
435 DATA 2 ; 15 tM : RC ; 
436 BLOCK 2,12 ; 16-17 tN-10 ; 
437 BLOCK 8,12 ; 20-27 tP-fW ; 
438 BLOCK 8,12 ; 30-37 *Х-В ; 
439 DATA 9 ; 40 SP ; 
440 DATA 12 ; 41 ! ; 
441 DATA 11 ; 42“; 
442 DATA 12 43%; 
443 BLOCK 3,12 ; 44-46 $ % & ; 
444 DATA 10 ; 47 ' ; 
445 DATA 4 ; 50 ( ; 
446 DATA 5 ; 51); 
447 BLOCK 4,12 ; 52-55 “ +, - ; 
448 DATA 8 ; 56 . ; 
449 DATA 3 ; 57 / ; 
450 BLOCK 8,12 ; 60-67 0 1234567 ; 
451 BLOCK 3,12 ; 70-72 89 : ; 
452 DATA 1 : 73 point-virgule ; 
453 BLOCK 4,12 s; 74-77 < = > ? ; 
454 BLOCK 8,12 ; 100-107 @ A B C D E F G ; 
455 BLOCK 8,12 ; 110-117 H IJ K L MN O ; 
456 BLOCK 8,12 ; 120-127 PQ R ST U U U ; 
457 BLOCK 3,12 .; 130-132 X Y 2 ; 
458 DATA 6 ; 233 [ ; ` 
459 DATA 12 ; 134 N ; 
460 DATA 7 ; 135 ] ; 
461 BLOCK 2,12 ; 136-137 * < ; 
462 BLOCK 8,12 ; 140-147 ç ab c def g; 
463 BLOCK 8,12 ; 150-157 h i j k1m no ; 
464 BLOCK 8,12 і 160-167 p q r s t u v w ; 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 260 / 362 


APPENDICE C Page C-11 


VMI SSR r or r o ovr-_  — T 


465 BLOCK 7,12 : 170-172 xy z ( | 3 ^; 


466 DATA 0 ; 177 DEL ; 
467 )) 

468 

469 ; Fin du lecteur ; 

470 

471 'OK 

472 

Hx ; Définition du macro-caractére d'activation ; 
475 (DMC "Q" O 

476 ; ü = tR ; 

477 (QUOTE (VCMC2 

15 [' (NOP NIL NIL CALL (READ?) ” (NOP NIL NIL JUMP (PROBJT))1)1]) 
480 : Epilogue standard ; 

481 

482  (PROGN 

483 (ANACODE ” (reader) ) 

484 (STATUS 1 1) 

485 (PRINT "... Lecteur - VCMC2 chargé.") 
ТЕС (PRINT " ùs pour (PRINT (READ))")) 
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| CROSS REFERENCE | 


Signification des codes associés aux numéros des Lignes : 


définition de fonction de type DE DF DM DMC ou ENTRY 
définition de fonction de type ESCAPE, ESCLOOP 
définition d'étiquette dans PROG, DO, LAP ... 
variable argument d'une fonction 

variable affectée par SETQ ou SETQQ 

nom apparaissant dans une S-expression quotée 

- code instruction assembleur 


en ~ se 00 Tk 


ü DMC 475 

(S DC 35 

“ ENTRY 208 

ASCII ENTRY 378 

CASCII ENTRY 388 

CODE DF 30 

DMC ENTRY 218 

IMPLODE ENTRY 357 

PEEKCH ENTRY 371 

READ ENTRY 349 

READCH ENTRY 365 

TYPECH ENTRY 395 

1 A 2084 212: 

2 жМАВКж 247' 289° 297 323° 339 

3  OSUBR 208 349 365 371 

4 1SUBR 357 378 388 

9 . 2SUBR 395 

6 ёе 92 53 86 87 88 90 96 99 102 104 165 
168 169 170 200 359 360 361 374 391 

7 А1 173 185 188 189 189 203 213 214 221 223 256 


10 A4 63 87 94 96 97 98 99 100 100 101 102 


105 173 182 195 200 374 380 

11 ADD 165- 183- 196- 

12 ANACODE 483 ` 

13 APPLY 174 

14 ASCII 173 378# 381: 

15 ASCIII 367 374 380: 

16 BLOCK 4l2- 813- 433- 434- 436- 437- 438- 443- 447- 450- 451- 
453- 454- 455- 456- 457- 461- 462- 463- 464- 465- 

17 BUFAT 181 186 188 194 201 203 381 384 412: 

18 BUFCH 101 102 390 391 413: 

19 CALL 91 123 127 130 151 173 174 179 198 212 220 


222 232 244 253 255 259 302 303 22351 360 373 
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397 278 
20 CAR 100- 288- 296- 322- 
21 CASCII 388# 390: 397 
22 CDR 99-  324- 
23 CODE 304 41 
24 CONS 214- 247- 327' 
25 DATA 154- 155- 156- 157- 158- 159- 160- 161- 162- 235- 236- 


237- 238- 239- 240- 263- 264- 265- 266- 267- 268- 308- 
309- 310- 311- 312- 313- 406- 407- 409- 410- 432- 435- 
439. 440- 44l- 442- 444- 445- 446- 448- 449- 452- 458- 


26 DE 220 

27 DF 30 

28 DMC 35 218# 220: 475 

29 ENTRY 208 218 349 357 365 371 378 388 395 
30 Ға 86- 124- 128- 133- 134- 180- 199- 245- 254- 325- 352- 
31 ERLEC- 185 290 332 333 334 335 336 337 339: 
32 ERLECI 98 332: 

33 ERLECS3 197 333: 

34  ERLECA 236 238 239 334: 

35 ERLEC6 297 335: 

36 ERLEC7 308 310 312 313 336 

37 ERLECS8 323 337: 

38 FALSE 245 254 

39 FLIST 98- 

40 FNIL 90- 

41 FSUBR 218 

42 GE 169- 197- 

43 СЕТСН 86: 123 127 130 179 367 373 

44  GETCHI 86 90: 

45 GETCH2 88 92: 102 105 

46 GETCH3 90 96: 

47 GETCHG 97 104: 

48 GETCV 124 126: 128 134 151 198 

49 GETCVI 123: 125 133 

50 GETCV2 129 133: 

51 IMPLD 96 99 104 359 410: 

52 IMPLI 53 90 360 361 405: 

53 IMPLODE 357# 359: 

54 IN 63- 

55  INCHB 63: 391 

56 INTERN 188- 203- 384- | 
57 JUMP . 86 88 90 97 98 102 105 124 125 128 123 


133 134 180 184 185 197 199 245 249 254 274 
278 282 290 297 316 323 325 332 333 334 335 


98  JUMPX 152- 233- 261- 306- 

99 L 30, 30 

60 LIST 298” 

61 LT 184- 

62 MCONS 326” | 

63 MOVE 52- 53-  87-  88- 96- 102- 104- 105- 131- 170- 173- 
374- 175- 178- 185- 190- 193- 200- 204- 222- 246- 290- 
GC 333- 334- 335- 338- 337- 359- 360- 361- 3/4- 380- 

64 MOVEX 182- 187- 195- 202- 382- 383- 400- 

65 NEU 125- 129- 289- 297- 323- 

66 NOP 35%  91- 123- 127- 130- 151- 179- 198- 212- 220- 232- 
244- 253- 255- 302- 351- 353- 373- 397- 478 478” 

67 ОК 671” 

68 OUTSTR 35 

69 РЕЕКСН 371# 3/3: 

70 РМАМ 101- 390- 
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112 RINGUR 
113 RPLACA 
114 SCAR 
115 SCDR 
116 SCVAL 
117 SERROR 
. 118 SINDEX 
119 STATUS 
120 STRING 
SUB 
122 T 
123 TABCH 
124 TNIL 
125 TYPECH 
126 ТҮРЕСН1 
127 VCMC2 
128 XCONS 
129 XMOVE 
130 «reader 


286- 
158 


249- 


232 


169 


302 


287- 
240 


297- 


244 


170 


352 


282 


131 
298 
88 . 


194- 


319- 


294- 


259- 


253 


407: 


360 


135 


326 
200 


201- 


APPENDICE C 


295- 304- 305- 321- 
278- 282- 303- 339- 340- 
259 303 351 

478” 

165 169 170 175 190 
327 361 384 391 401 
374 406: 
381- 398- 
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„ж жж жож жж ж EE Ж Ж ЖОЖ EE ЖОЖ Ж SES И ОИ ЖОЖ ЖОЖ Ж D 
D 


d PRETTYPRINT (ULISP 8.2 & VLISP 11) j 


„жж жж ж ж жж жож ЖК Ж Ж Ж А: ЖИ 206 ЖОЖ Ж Ж ZETE Ж Ж Ж Ж ЖОЖ Ж Ж ЖО ЖОЖ ЖЖЖ ЖЖЖ, 
# 


2----- Fonctions internes ; 


CO Oo NO UT E> CN — 
` 


(DE P-P (L) 

: Pretty-Print l'expression 1 ; 

(COND 
10 ((NULL. t) CPRINCH "(") (РВІМСН ")")) 
11 (САТОМ L) (PRIN 02 
12 ( (АМО (EQ (CAR 1) QUOTE) (NULL (СООН 2) 
13 (PRINCH "'") 
14 (Р-Р (CADR L))) 
15 (T (PRINCH dee 
16 (P-P (CAR LD 
17 (SELECTQ TYPE (NEXTL L)) 
18 (1 ; Format PROGN ; (P-PROGND) 
19 (2 ; Format WHILE ; (Р-Р1) (P-PROGN Т)? 
20 (3 ; Format DEF ; Kë (P-P1) (P-PROGN T)) 
21 (4 ; Format COND ; (P-COND) ) 
22 (5 ; Format SELECTO : (P-P1) (P-COND)) 
23 (6 ; Format SETQ multiple ; 
24 (T+3) 
25 (WHILE 1 (P-P1) (P-P1) (IF L (TERPR1))) 
26 (T-3)) 
27 (; Format standard ; 
28 (T+3) 
29 (WHILE (LISTP 1) (P-P1)) 
30 (T-3))) 
31 (АМО L (PRINCH " ") (PRINCH ".") «PRINCH " ") (PRIN LD) 
32 (PRINCH ")")))) 
33 
34 (DE P-P1 O 
35 : Pretty Print un élément de la liste ! ; 
36 ; mais pas le ler ! ; 
37 (PRINCH " ") 
22 (Р-Р (NEXTL 1222 
40 (DE .P-PROGN (?) 
&1 : Pretty Print le PROGN 1 si ?=T il indente toujours ; 
42 (ТЕ (AND (NULL (CDR LD) (NULL 22) 
43 1 seul argument ; 
44 (Бері) 
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45 ; plusieurs . syments ; 

46 (T+3) 

47 (WHILE (LISTP i? 

48 (ТЕ (GT (LMÆGGIN) (OUTPOS)) COUTPOS (LMARGIN)) (TERPRI)) 
49 (Р-Р «NEXTL 1222 

50 (T-3))) 

51 

52 (DE P-COND О 

53 : Pretty Print le COND 1 ; 

54 (T+3) 

55 (WHILE (LISTP 0 

56 (TERPRI) 

57 (PRINCH "(") 

58 (LET (t «NEXTL. D) (P-P (NEXTL О) (IF L (P-PROGN) ) ) 
59 (PRINCH ")")) 

60 (T-3)) 

61 | 

62 (DE T+3 O 

63 ; effectue un renfoncement droit ; 

ër (LMARGIN (+ (LMARGIND 3))) 

66 (DE T-3 O 

67 z enlève un renfoncement droit ; 

Es (LMARGIN (- (LMARGIN) 3))) 

JANNEN Fonctions standard du PRETTY PRINT ; 

72 (DF PRETTY (L ;; x) 

73 ; Pretty Print 1a fonction (CAR i) ; 

74 (STATUS PRINT 7) 

75 (LMARGIN 0) 

76 (SETQ 

77 x 

78 (CDR 

79 (ASSQ (TYPEFN (CAR D) '((EXPR . DE) (FEXPR . ПЕ) (MACRO . DM))))) 
80 (IF х (P-P (MCONS х (CAR D (GETFN (CAR {))))) 

81 (TERPRI) 

82 (STATUS PRINT 0) 

83 (CAR LD) 

84 

85 (ОЕ PRETTYF (1) 

86 ; Pretty Print 1e fichier (CAR 1) ; 

87 (INPUT (CAR LD) 

88 (OUTPUT «CAR 10) 

89 (STATUS PRINT 7) 

90 (LMARGIN 0) 

91 (ESCAPE EOF (WHILE T (P-P (READ?) (TERPRI 2))) 

92 (OUTPUT) 

93 (INPUT) ` 

94 (STATUS PRINT 0) 

95 (CAR 122 

96 

97 (DF SRUEF (L) 

98 ; Sauve des définitions de fonctions Pretty Printées ; 
99 ; (SAVEF file fntl ... fntN) ; 

100 (OUTPUT (NEXTL 122 

101 (WHILE (LISTP 1) (EYAL (LIST 'PRETTY (NEXTL L))) (ТЕВРВІ22 
102. (OUTPUT?) ) 

103 

I. SES Mise en place des F-TYP des atomes standard / 


(PROGN 
107 (ESCAPE EOF (WHILE T (РТҮРЕ (READ) CREAD)))) 
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108 (INPUT) 


(PRINT "Prett. charge : PRETTY SAVEF")) 
111 

110: E 

113 

114 ; Type 1 : Format PROGN ; 
115 

116 AND 1 

117 EXIT 1 

118 LIST 1 

119  MCONS 1 

120 OR 1 

121 PRIN 1 

122 PRINT 1 

123 PROGI 1 

124  PROGN 1 

125 

126 s Type 2 : Format LAMBDA ; 
127 

128 ESCAPE 

129 IF 

130 IFN 

131 LAMBDA 

132 LET 

133 MAP 


к 

CQ 

ғ 

= 

> 

“пй 

с) 
NNNNNNNNNNNNN 


138 UNTIL 

139 WHERE 

140 WHILE 

141 

142  ; Type З : Format DEF ; 
143 

144 DE 3 

145 DF 3 

146 DM 3 

147 DMC 3 

148 

149 ; Type 4 : Format COND ; 
150 

151 COND 4 

152 

E ; Type 5 : Format SELECTA ; 
155  SELECTG 5 

156 

Eu ; Type 6 : Format SETQ multiple ; 
159 SETQ 6 

160 

161 ; Fin des P-TYP ; 

162 

163 О () 

164  '/ 
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eene 


CROSS REFERENCE 


Signification des codes associés aux numéros des lignes : 


H définition de fonction de type DE DF DM DMC ou ENTRY 
& définition de fonction de type ESCAPE, ESCLOOP 
: définition d'étiquette dans PROG, DO, ГАР... 
, variable argument d'une fonction 
= variable affectée par SETQ ou SETQQ 
° nom apparaissant dans une S-expression quotée 
code instruction assembleur 
P-COND DE 52 
- DE 7 
Р-Р1 DE 34 
P-PROGN DE 40 
PRETTY DF 72 
PRETTYF DF 85 
SAVEF DF 97 
T+3 DE 62 
T-3 DE 66 
1 + 64 
2 - 68 
3 7? 40, 42 
4 AND 12 31 42 
5  ASSQ 79 
6 ATOM 11 
7 CADR 14 
8 CAR 12 16 79 80 80 83 87 88 95 
9  CDDR 12 
10 CDR 42 78 
11 COND 3 
12 DE 7 34 40 52 62 66 79” 
13 ОҒ 72 79” 85 97 
14 DM 79° 
15 EOF 918 1078 
16 12 
17 Е5САРЕ 91 107 
18 EVAL 101 
19 EXPR 79” 
20 FEXPR 79” 
21 GETFN 80 
22 GT 48 | 
23 IF 25 42 48 58 80 
24 INPUT 87 93 108 
25 L 14 49 101 
26 LET 58 
27 LIST 101 
28 LISTP 29 47 55 101 
29 LMARGIN 48 48 64 64 68 68 75 90 
30 MACRO 79" 
31 MCONS 80 
32 NEXTL 17 38 &9 58 58 100 101 
33 NULL 10 12 42 42 
34  OUTPOS 48 48 
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35 QUTPUT 88 92 100 102 
36 P-COND 21 22 52% 

37 P-P 7H 14 15 38 49 5 80 9 

38 Р-РІ 19 2 20 22 25 25 29 34 44 

39 P-PROGN 18 19 20 408 58 

40 PRETTY 72H 101” 

41 PRETTYF 85H 

42 PRIN 11 31 

43 РВІМСН 10 10 13 15 31 31 3 32 3 57 59 
44 PRINT 74 | 82 89 94 109 

45 PROGN 106 

46 PTYPE 17 107 

47 QUOTE 12 

48 READ 91 107 107 

49 SAVEF ` 97H 

50 SELECTQ 17 

51 SETQ 76 

52 STATUS 74 | 82 89 94 

53 15 19 20 91 107 

54 T43 24 28 "48 54 82H 

55 T-3 26 30. 50 60 667 

56  TERPRI 25 48 5 81 891 10 

57 TYPEFN 79 

58 WHILE 25 29 47 5 91 101 107 

59 | 7, 10 11 11 12 12 16 17 25 25 29 


31 31 38 42 47 55 98 98 58 58 22, 
79 80 80 83 85, 87 88 95 97, 100 101 
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_ ; Ú C MC 2P Z ULI 

3 ; IMPRIMEUR WLISP| еп machine WCMCZ 

4 2 таным ——— 

5 ; Ce fichier doit être édité au moyen de : 

6 A (CROSSF V2P T T T (NIL/T) T T) 

7 H {NIL/T} si VERSATEC 

8 ; —HÉÓÁQU— Банан ннан 

9 ; 

E : Jérôme CHAIiLOUX 

1 ; . i . 

12 4 Département d'Informatique 

13 i Université de Paris 8 - Vincennes 

14 z Route de la Tourelle 75571 Paris Cédex 12 

e ; 761 : 374 12 50 poste 299 

1 ; 

17 4 L.I.T.P. (CNRS LA 248) 

18 3 2 Place Jussieu 75221 Paris Cédex 05 
. 19 7 Tél : 336 25 25 poste 53-70 

20 2 

21 % І.В.С.А.М. 

22 š 31 Rue St Merri 75004 Paris 

23 É Tél : 277 12 33 poste 48-48 

24 H | 

25 

26 (STATUS 2 1 2) 

27 

28 ; Pour prettyprinter correctement le code ; 

29 

30 (CF CODE (L) L) 

31 | 

32 

E. : Pour contrôler la lecture ; 

4 
== (OMC 55" O (PRIN1 (READ)) ° (NOP)) 
3 
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37 ; Imprimeur ULISP ; 


39 (RPLACA '^pprinter 
40 (CODE NIL 


41 

42 ; p———————————————————————À ; 
43 ; | l; 
44 ; | Impressions МР - VCMC2 |; 
РЕ. À Printer et Pretty-printer |; 
x Е 
48 
49 
50 ; Routine d'initialisation de l'imprimeur ; 
51 ` ; à utiliser en cas d'erreur pour reinitialiser ; 
ES ; l'imprimeur ; m 
54 PRININI:MOVE МЕ, (8 IEXPLD) ; raz indicateur EXPLODE ; 
55 MOVE "100, (8 PRMDP) ; init profondeur max du PRINT ; 
56 MOVE *1000, (8 PRMLN) ; init longeur max du PRINT ; 
57 MOVE — '0,«8 POCOUR) ; position début de ligne ; 
58 MOVE '0, (8 NBLEFT) ; init marge gauche ; 
59 MOVE "70, (8 NBRIG) ; init marge droite ; 
60 SINDEX (BUFOUT) ; pour nettoyer  BUFOUT ; 
61 MOVE *0,А1 ; index ; 
62 SILENCE ; la boucle est trop longue ... ; 
63 РВІ11: MOVEX °" " Al ; force un espace ; 
64 ADD 71,А1 ; incrémente l'index : 
65 LT A1,'132, [JUMP (PRII1)]; pour les 132 positions ; 
66 REVIVE ; restaure les traces ; 
di NOP ve [RETURN] ; et c'est tout ; 
x ; FULLIN : appelle 1'IT Soft : EOL si la ligne déborde ; 
7 FULLIN: PUSH А1 ; sauve tous les registres ; 
72 PUSH A2 ; encore ; 
73 PUSH A3 ; encore ; 
74 PUSH A4 ; et encore ; 
75 . MOVE "EOL,A1 ; nom de 1'IT Soft ; 
76 MOVE  NIL,A2, [CALL (ITSOFT)1; sans argument ; 
77 POP A4 ; restaure les registres ; 
78 POP A3 ; encore ; 
79 POP A2 ; encore ; 
Er POP A1, , [RETURN] ; et encore ; 

82 ; (EOL) OSUBR équivalent à (TERPRI) ; 

E ; mais est appelée par IT Soft ; 

4 ` . 

E ENTRY  EOL, OSUBR 

87 EOL: NOP ,» [CALL (OUTLIN)] ; vide la ligne ; 

88 MOVE  NIL,A1, [RETURN] ; et retourne А1; 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 272 / 362 


APPENDICE E Page E-3 
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90 ; Routines de base ; 

91 ————— $] 

92 

93 ; OUTLIN : vide le tampon de sortie ; 

32 ; et change de ligne ; 

96 OUTLIN: FNIL (8 IEXPLD),, [JUMP (EXPLS)] ; C'est la fonction EXPLODE ; 
97 SINDEX (BUFOUT) ; init base index ; 

98 MOVE — '0,A2, [JUMP (QUTLI2)] ; index sur BUFOUT ; 

99 OUTLI1: XMOVE А2 A1 ; caractère suivant ; 

100 QUT A1 ; qui est imprimé ; 

101 MOVEX '" ",A2 ; remet à espace le tampon ; 
102 ADD "L; A2 ; incrémente l'index ; 

103 SUB * ï, <@ POCOUR) décompte des caractères ; 

104 OUTLI2: GT (8 POCOUR) , "0, [JUMP (OUTL1I1)] ; il en reste ; 

105 QUT ? 13 ; imprime 'RC' ; 

106 OUT "10 ; imprime 'LF' ; 

107 MOVE (8 NBLEFT),(@ POCOUR) ; init pointeur courant ; 

108 ADD ”1, (@ PRCLP) : compteur nb de lignes max ; 
109 NEQ (8 PRCLP), (@ PRMLP), [RETURN] ; tout est normal ; 

i SSTACK ‹@ SPRINT), , [JUMP (PROBJE) 1 : retour trés rapide ; 
112 ‚ OUTCH : suppose dans A4 un caractère, le depose dans ; 

SE ; le tampon de sortie et actualise Те pointeur courant ; 
115 OUTCH: ЕМ (8 IEXPLD),, [JUMP (EXPLCH)] ; C'est Та fonction EXPLODE ; 
116 GE (@ POCOUR), (8 NBRIG), i JUMP (FULLIND]1 ; Піапе pleine ; 
117 SINDEX (BUFOUT) : init base index ; 

118 MOVEX A4,(@ POCOUR) : charge le caractère ; 

E ADD '1,(9 POCOUR), [RETURN] ; incrémente le pointeur courant ; 
121 ‚ OUTSP : édite un espace si c'est SES i 

155 ; sinon change de ligne ; | 

124 DQUTSP:  FNIL (8 IEXPLD),, [JUMP CEXPLS)] ; C'est Та fonction EXPLODE ; 
125 GE (@ POCOUR), (€ NBRIG), [JUMP (FULLIND1 ; Tine pleine ; 
126 SINDEX CBUFOUT) : init base index ; 

127 MOVEX '" ", OS POCOUR) ; charge l'espace ; 

124 ADD ?1, (@ POCOUR) , [RETURN] ; actualise le pointeur courant ; 
129 

130 ‚ PRATOM : édite l'atome dans А1; 

131 z : change de ligne si l'atome ne rentre pas dans la ligne ; 
132 

133 PRATOM: PLEN А1,А4 : A4 < longeur du P-name ; 

134 ADD (8 POCOUR) , A4 : calcul la nouvelle taille ; 
135 GT A4, (@ NBRIG), [CALL (FULLIN)] ; ca rentre pas ; 

136 PNAM А1, (BUFAT) ; BUFAT < les caractéres 4 

137 МОУЕ '0,42 ; index sur BUFAT ; 

138 PLEN A1, A3, [JUMP (PRAT3)] ; compteur ; 

139 PRAT2: SINDEX (BUFAT) : charge l'index ; 

140 XMOVE A2,A4, [CALL (OUTCH)1 ; édite 1 caractère ; 

141 ADD 71,А2 ; avance l'index sur PNAM ; 

142 PRAT3: SUB "Il, A3 ; compte ; 

143 GE A3,'0, [JUMP (PRAT2)] ; il en reste ; 

144 NOP , | CRE TURN] ; c'est fini ; 

145 
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146 ; Impression standard : 

147 £————————— $ 

148 

E ; PROBJ : fonction d'impression interne de А1; 

151 PROBJ: PUSH Al ; sauve Ta valeur à éditer ; 

152 STACK (8 SPRINT) ; pour un retour rapide ; 

153 MOVE '0, CR ARTE. i aa nb delignes ; 

154 MOVE ' 0, (8 PRCLN) nit la longeur courante ; 

155 MOVE '0, (@ PRCDP), [CALL (PRÓBJO) ] ; init la prof courante ; 
156 PROBJE : ; en cas de retour subit ; 

e? POP А1,, [RETURN] ; ramène en valeur l'objet édité ; 
159 PROBJO: FLIST А1, , [JUMP (PRATOM)] ; c'est tout pour les atomes ; 
160 ADD '1,«8 PRCDP) ; actualise la prof courante ; 
161 LE (8 РАСОР), (8 PRMDP), [JÜMP (PROBJ2)] ; ca tient ; 

É MOVE "ан Ай, [JUMP (OUTCH)] ; "&" suffit dans ce cas ; 

164 PROBJ2: CAR A1,A2 ¿ré cupère Je ler élément de la liste ; 
165 NEQ A2,'QUOTE, [JUMP (PROBJUS)11 ; c'est pas ' ; 

166 CDR A1, e z (larg) ; 

167 CDR A2, A 

168 FNIL A3: TJUMP (РВОВ.)5) 1 ; Се n'est pas la fonction QUOTE ; 
169 MOVE — '"'",AA, [CALL (OUTCHD1; imprime le caractère ' ; 

i CAR A2, A, [JUMP (PROBJO)) ; et l'argument de Ta fonction ; 
172 PROBJ5: MOVE — '"(",A4, [CALL (QUTCH?1; début de liste ; 

n NOP ,. JUMP (PROBJ7)1 

175 PROBJ6: NOP „ | [CALL COUTSP)] ; séparateur d'élément de liste ; 
176 PROBJ7: ADD "1,8 PRCLN) ; actualise la iongeur courante ; 
177 LE (8 PRCLN?, (8 PRMLND, [JUMP (PROBJ8)1 ; c'est bon ; 

178 PUSH (PROBJ9) , , [CALL (PRÓBJD) 1 

179 ; édite 3 points de suspension š 
180 NOP „ , [CALL (PROBJD)] 4 la pile compte en binaire ; 

152 PROBJD: MOVE — '".",A4, [JUMP (OUTCH)]; utilise le JRST hack ; 

183 PROBJ8: CDR A1,TST ; sauve le reste de la liste ; 
184 CAR A1,A1, [CALL (PROBJOO)1 ; édite l'élément suivant ; 

185 POP A1 ; récupére 1e reste ; 

186 TLIST Ai1,, [JUMP (PROBJ6)] ; la liste continue ; 

187 ТМІ А1,, JUMP (PROBJ9)] ; c'est une belle fin ; 

188 NOP »» [CALL (OUTSP)] 

189 MOVE — '"."L.A4, [CALL COUTCH)] 

190 NOP , | [CALL COUTSP)] | 

191 NOP , | [CALL (РВАТОМ21 ; édite l'élément pointé ; 

192 PROBJS: MOVE = ''O",AA4, [CALL (QUTCHD1; fin de la liste ; 

EA SUB "1,8 PRCDP), [RETURN] ; actualise profondeur courante ; 
i ; PROBJT : imprime А1 et change de ligne ; 


197 PROBJT: 


PUSH 


(FULLIN),, [JUMP (PROB.D1 ; prépare Te retour ; 
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199 : Fonction: de sortie standard ; 

200 —————— T ; 

201 

202 ; (PRIN el ... eN) FSUBR ; 

203 

204 ENTRY  PRIN,FSUBR 

205 

206 PRIN11: CDR Ai. Ter, [CALL (EVCARD 1 

207 NOP WALL А теу 

208 МОР ' [CALL (PROB.D 1 

209 MOVE Al,A2 

210 POP Al 

211 PRIN: TLIST А1,, [JUMP (PRINI1)] 

212 MOVE A2,A1, [RETURN] 

213 

2c ; (PRINT el ... ең) FSUBR ; 

Se ENTRY  PRINT,FSUBR 

218 PRINT: МОР „ [CALL (PRIN)1 

219 NOP ' [JUMP «ЕЛІМ : 

220 i 

> ; (TERPRI n) ISUBR ; 

55 ENTRY  TERPRI,1SUBR 

225 TERPRI: TNUMB А1,, LJUMP (TERPR2 2 ï ; c'est un bor argument ; 
226 MOVE 71,А1 ; n = 1 par defaut ; 
227 TERPR1: SUB SE Al, [CALL (OUTL.IN: : : compte ; 

228 TERPR2: GT A1,'0, [JUMP (TERPR1)! ; il en faut encore ; 
255 МОР s, TRE TURN] г её retourne 9; 

E ; (PRINCH c n) 2SUBR ; 

2 ENTRY  PRINCH, 2SUBR 

235 PRINCH: MOVE А1,А : pour OUTCH ; 

236 TNUMB А2,, Lup (PRINC2)] : le 2ème argument est correct ; 
237 MOVE Sr A2, [JUMP (РВІМС221 ; 1 par défaut ; 

238 PRINCi: PUSH A2, , [CALL (OUTCH) ] ; envoyer ; 

239 POP A2 

240 SUB 71,А2 ; décompte ; 

241 PRINC2: GT A2,'0, [JUMP (PRINC1)] ; i? en reste ; 

E NOP , |, [RETURN] ; retourne le caractère ; 
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5. ; Routines internes du PRETTY-PRINT ; 
246 
247 ; PP : pretty-prin А1; 
248 
249 PPCAR: ; (PP (CAR A1)) ; 
250 CAR A1,A1 
251 PP: ; (PP A1) ; 
252 ЕМІ. А1,, [JUMP (PP10)] ; ce n'est pas NIL ; 
253 MOVE — '"(",A4, [CALL (COUTCH)] 
254 MOVE — '"2", A4, [JUMP (OUTCH)]; NIL s'imprime toujours () ; 
255 PP10: FLIST A1, , LJUMP  (РВАТОМ) 1 ; impression de l'atome simple ж 
256 PUSH А1 ; sauve 1а liste ; 
257 CAR А1,А1 ; Al < la fonction ; 
258 MOVE — 'PRETTY,A2, [CALL (GET?) 
299 | ; recherche de format utilisateur (DMP) ; 
260 TNIL = A1,, [JUMP (PP11)] ; yen à pas : formats standard ; 
261 XTOPST A1,, [JUMP (EVFEXP)] ; appel de 1a fonction user ; 
262 PP11: POP А1 ; récupère la liste à imprimer ; 
263 CAR A1,A2 ; ler element ; 
264 CDR A1,A3 ; reste de 1a liste ; 
265 NEQ A2, ' QUOTE, [JUMP (PP12)] 
266 ; ce n'est pas la fonction QUOTE ; 
267 CDR АЗ, AA ; 2ème argument ; 
268 FNIL A^, , [JUMP (PP12)] ; ce n'est pas 1a fonction QUOTE ; 
269 MOVE °"°", д4, [CALL COUTCH)]; impression sous forme 's 2 
270 CAR A3, А1, [JUMP (PP)] ; du seul argument ; 
271 PP12: MOVE ann, Ав, [CALL (OUTCH)] ` 
272 CDR Al, TST ; sauve les arguments ; 
273 CAR A1, TST, [CALL (PPCAR)] ; imprime le nom de 1a fonction ; 
274 PT YPP  TST,A2 ; A2 < Printype de 1a fonction ; 
275 POP А1 ; Al « les arguments de 1a fonction ; 
276 PUSH (PPTE) ; prépare le retour des impressions ; 
37 JUMPX (PPTBLX),A2 ; branchement indexé sur le P-TYP ; 
279 PPTBLX: DATA (PPTO) ; type 0 : inconnu ; 
280 DATA (PPT1) ; type 1 : DE ; 
281 DATA (PPT2) ; type 2 : IF 
282 DATA (PPT3) ; type 3 : PROGN ; 
283 DATA (PPT4) ; type 4 : SELECTQ ; 
284 DATA (РРТ5) ; type 5 : COND ; 
422 DATA (PPT6) ; type 6 : SETQ ; 
28 
287 š ; Retour unique pour tout type : 
288 
289 PPTE: TNIL А1, , [JUMP (PPTE7)] ; c'est une vraie fin ; 
290 NOP »» [CALL (OUTSP)] 
291 MOVE — '".",A4, [CALL (OUTCH)]; symbole de paire pointée ; 
292 NOP ,, [CALL (OUTSP)1 | 
293 NOP »» [CALL (PP)] ; imprime 1a partie droite ; 
ps PPTE7: MOVE ”")",А4, [JUMP (OUTCH)] ; et ferme la liste 1 ; 
296 ; Imprime l'élément suivant de A1 ; 
224 ; ce n'est pas le premier ; 
9 
299 PP1: NOP ve [CALL (OUTSP)] ; Séparateur d'éléments ; 
300 CDR А1,Т5Т, [CALL (PPCAR)] ; imprime l'élément ; 
301 POP A1, , [RETURN] ; restaure de CDR ; 
302 
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303 ; Différents Formats du PP ; 

304 ; — ; 

305 

306 

= ; Type 0 : PTYP indéterminé ; 

308 

309 PPTO: ADD '3,(9 NBLEFT), [JUMP (PPTO3)] ; prépare un renfoncement ; 


310 PPTO2: NOP „ , [CALL (PP1)] ; imprime l'élément suivant ; 
311 PPTO3: TLIST Al,, [JUMP (PPT02)1 ; il reste des éléments ; 


5: SUB 3, (@ NBLEFT), [RETURN] ; et enlève le renfoncement ; 

313 

314 : Type 1 : PTYPE de type DE ; 

315 

316 РРТ1: МОР „ , [CALL (PP1)1 : élément suivant sur la même ligne ; 
317 : Type IF doit suivre ... ; 

318 : Type 2 ; PTYPE de type IF ; 

319 

320 РРТ2: МОР ,; [CALL ЖРРІ21 : élément suivant sur la méme ligne ; 
321 NOP ІШЕР (РРТЗ121 : vers le PROGN véritable ; 

322 

323 : Type 3 : PTYPE de type PROGN ; 

324 

325 РРТЗ: CDR А1,А2 

326 TNIL ` A2,,!ICALL (РР121 : s'il n'y a qu'un élément ; 

327 PPT31: ADD "3, (@ NBLEFT2, (JUMP (PPT33)j ; prépare un renfoncemeni ; 
328 PPT32:  NOP ‚› [CALL (FULLIN)] : change de ligne ; 

329 NOP . , [CALL РР1)1 : imprime l'élément suivant ; 

330 PPT33: TLIST Al,, [JUMP (PPT32)1 ; ii reste des éléments ; 

331 SUB '3, (@ NBLEFT), [RETURN] ; et enlève le renfoncement ; 

332 

333 : Type 4 : PTYPE de type SELECTQ ; 

334 

335 PPT4: NOP „ , [CALL (PP1)1 ; sélecteur sur la méme ligne ; 
336 ; Type COND doit suivre ... ; 

337 ; Type 5 : PTYPE de type COND ; 

338 

339 PPTS: ADD '3,(8 NBLEFT), [JUMP (PPT55)1 ; renfoncement des clauses ; 
340 РРТ51: NOP „ , [CALL CFULLIN)] ; une nouvelle ligne par clause ; 
341 MOVE "<" A4, ICALL (ОЛТСН21 

342 CDR A1,TST ; sauve le reste des clauses ; 
343 CAR А1,А1 ; Al < la clause ; 

344 CDR A1,TST, [CALL (PPCAR)] ; sauve le corps de ia clause ; 
345 POP А1 ; récupère Île corps de Та clause ; 
346 TLIST А1,, [CALL (PPT3)] z corps édité comme un PROG ; 
347 MOVE vu)" Ай, [CALL (OUTCH)] ; ferme Та clause ; 

348 POP А1 ; le reste des clauses ; 

349 PPT55: TLIST A1,, [JUMP (РРТ5121 ; il en reste ; 

350 SUB "3, (@ NBLEFT), [RETURN] ; retire le renfoncement ; 

351 

352 ; Type 6 : PTYPE de type SETQ ; 

353 

354 PPT6: FLIST A1,, [RETURN] z c'est (SETQ) ; 

355 ADD °з, (g NBLEFT) ; prépare un renfoncement ; 

396 PPT61: CDR A1,TST, [CALL (PPCAR)] ; pp la variable ; 

357 POP A1 : récupère Île reste ; 

358 CDR AL. Ter, [CALL (PPCAR)] ; pp la valeur ; 

359 РОР А1 : récupère le couple suivant ; 
360 TLIST A1,, [CALL (FULLIND] : change de ligne ; 

361 11157 A1,, [JUMP (PPT61)] ; ca continue ; 

362 SUB '3,(8 NBLEFT), [RETURN] ; enlève le renfoncement ; 

363 
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FA ; Fontions standard du PRETTY-PRINT ; 
366 j ' 
367 ; (PPRIN s) Pretty-prin l'expression s ; 
368 ; (PPRINT s) Pretty-print l'expression S ; 
GC ; (PRETTY at) Pretty-print 1a fonction de at ; 
371 ENTRY  PPRIN, 1SUBR 
372 ENTRY  PPRINT,iSUBR 
27 ENTRY PRETTY,FSUBR 
4 
222 ; PPRIN : retourne l'argument ; 
377 PPRIN: PUSH  A1,,ICALL (PP)] ; Sauve l'argument et le РР ; 
S POP A1, , [RETURN] ; retourne r argument ; 
EA ; PPRINT 2 retourne 1: argument ; 
382 PPRINT: PUSH  A1,,ICALL (РР) : sauve l'argument et le РР; 
= POP А1,, [JUMP (FULL IM? : change de ligne ; 
FA ; PRETTY : retourne NIL s'il s'y a rien d'imprimé ; 
387 PRETTY: CAR A1,A2 ; A2 « le nom de l'atome ; 
388 FATOM A2, , [JUMP (FALSE) 1 ; ce n'est pas un nom ; 
389 FVAL A2,A1 ; Ale a F-VAL ; 
390 TNIL A1, , LJUMP (FALSE? 1 ; rien a faire ; 
391 CONS А2,А1 ; Fabrique (nom . fval) ; 
392 FTYP А2,АЗ f recupère le F-TYP ; 
393 NEQ A3,'7, [JUMP (PRETT3)] ; SS n'est pas EXPR ; 
394 CONS "ПЕ, ді, [JUMP (PPRINT)]; e (DE поп . fval) ; 
395 PRETT3: NEO A3, '8, TUUMP (PRETT421 ; ce n'est pas FEXPR ; 
396 CONS 'DF, Al, [JUMP (PPRINT?1; « (DF nom . fval) ; 
397 PRETT4: NEO A3, 'g, [JUMP (PRETT6)] ; ce n'est pas MACRO ; 
398 CONS ' DM, A1, [JUMP (PPRINT)]; « (DM nom . fval) ; 
399 PE=7T6: PUSH А2 2 ІН le nom ; 
400 MOVE А2,А1 ; Al < nom de l'atome ; 
401 MOVE 'PRETTY,A2, [CALL (GET)] ; recherche de fonction DP ; 
402 POP A2 j récupère le nom ; 
403 TNIL = A1,, [JUMP (FALSE)] ; ya vraiment pas de définition ; 
404 CONS А2,А1 ; Fabrique (nom (larg) . body) ; 
HE CONS = 'DMP,A1, [JUMP (PPRINT)] ; АЈ < (DMP nom . fva! J; 
407 ; (DMP nom (larg) . corps ) ; 
hs | ; Définition de format d'édition E ; 
412 ENTRY  DMP, FSUBR 
412 DP: CDR A1,A2 ; А2 < ((larg) . corps) $ 
413 CAR А1,А1 ; Al < le nom de la fonction ; 
4. МОУЕ "PRETTY, A3, LJUMP (PUT)] ; et crée 1a fonction ; 
4 
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ee EE 
НЕ ; Autres ‘onctions standard de sortie ; 
4 ;—— ——————————3 
418 

19 ; (PLENGTH 22) ramène le nombre de caractères ; 
420 ; du P-NAME de l'atome at ; 
421 
422 ENTRY  PLENGTH, 150ВА 
423 
424 PLENGTH:PLEN A1,A1, ІБЕТИЗМІ : et c'est tout ; 
425 
426 : (PTYPE at n) 25ИВК ; 
427 
428 ENTRY РТҮРЕ, 2SUBR 
429 
430 РТҮРЕ: ТМ. A2,, МР CO TYP12] ; pas de 2ème arg ; 
431 SPTYP AZ, AT ; force le nouveau PTYP ; 
432 PTYP1: PTYP A1,A1, [RETURN] ; retourne le PTYP courant ; 
433 
434 ;(PRINTLINE n) régie ?& n^ de lignes maximum d'impression ; 
435 
436 ENTRY  PRINTLINE, 150665 
437 
438 PRINTLINE: 
439 TNIL AL,, [JUMP (PRINTI 21 ; os sy а pas d'argument r 
440 MOVE Al,(@ PRMLP) : chosge la profondeur maximum ; 
441 PRINTN1:MOVE (8 PRMLP) AS, (RE UT 
442 ` ;огайпигпа Ta pralondeur maximum courante ; 
443 
444 ; (PRINTLEVEL n) régle ia arcFordeur maximum d'impression ; 
445 
He ENTRY  PRINTLEUEL, 1 SUBR 

á 
448 PRINTLEVEL : 
449 TNIL = A1,, [JUMP CPRINTLIOI  ; i! n'y a pas d'argument ; 


450 MOVE Al,(@ PRMDP) ; change la profondeur maximum ; 
451 PRINTL1:MOVE (8 PRMDP), A1, [RETURN] 

452 ; retourne la profondeur maximum courante ; 
453 

454 ; (PRINTLENGTH n) régle la longeur maximum d'impression ; 

455 

456 ENTRY  PRINTLENGTH, 1SUBR 

457 

458 PRINTLENGTH: 

459 TNIL Al,, [JUMP (PRINTNiO1 у il n'y a pas d'argument ; 

460 MOVE = A1,(8 PRMLN) ; change la longeur maximum ; 

461 PRINTN1:MOVE (8 PRMLN) ,A1, [RETURN] 

462 : retourne la longeur maximum courante ; 
453 
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5 


n ; Fonctions sur le tampon de sortie u 
—a ——— m 

466 
467 ; S.P. TESPOS : teste si la position Al reste bien ; 
782 h à l'intérieur de la ligne ; 
470 TESPOS: FNUMB A1,, [JUMP (POSER)] ; ce doit être un nombre ; 
471 LT A1,'0, [JUMP (POSER)] ; qui plus est positif ; 
472 LE А1, (@ NBRIG), [RETURN] ; et plus petit que NBRIG ; 
473 ; POSER doit suivre .., ; 
474 POSER: PUSH 'xMARKx ; marque fin arguments ; 
475. PUSH ` '"Débordement de ligne :" 
7 PUSH А1, , [JUMP (SERROR)] ; argument erronné ; 
2/5 z (LMARGIN n) régle la marge gauche ; 
480 | ENTRY  LMARGIN, 1SUBR 

1 
482 LMARGIN: TNIL = A1,, [JUMP (LMARG1)] ; 1! n'y a pas d'argument ; 
483 NOP |, | [CALL (TESPOS)] ; teste la validité de l'argument z 
484 MOVE А1, (@ NBLEFT) z change la taille de la marge gauche y 
485 LMARG1: MOVE (8 NBLEFT) ,A1, [RETURN] 
nee ; retourne 1a marge gauche courante 3 
225 ; (RMARGIN n) régle la marge droite z 
n ENTRY  RMRRGIN, 1SUBR 
492 RMARGIN: TNIL  A1,, [JUMP (RMARG1)] ; il n'y a pas d'argument ; 
493 FNUMB  A1,, [JUMP (POSER)] ; ce doit être un nombre ; 
494 LT А1, "o. [JUMP (POSER)] ; qui plus est positif ; 
495 GT A1,'132, [JUMP (POSER)] ; et plus petit que 132 ; 
496 MOVE — A1,(8 NBRIG) ; change la taille de 1a marge droite $ 
497 RMARG1: MOVE (8 NBRIG2,A1, [RETURN] 
155 ; retourne Та marge droite courante ; 
; (OUTPOS n) régle 1a position courante z 

1 
20 ENTRY  OUTPOS, 1SUBR 
904 OUTPOS: TNIL — A1,, [JUMP (OUTPO1)] ; 11 n'y a pas d'argument ; 
905 NOP s» [CALL (TESPOS)] ; teste la validité de l'argument d 
506 MOVE  A1,(@ POCOUR) ; change la position courante ; 
SA OUTPO1: MOVE (8 POCOUR) , А1, [RETURN] ; retourne la position courante ; 
SC ; (OUTBUF n c) charge directement le tampon ; 
E ENTRY  QUTBUF, 2SUBR 


513 OUTBUF: SINDEX (OUTBUF) ,, [CALL (TESPOS)] 
init base index et teste l'argument ; 


515 TNIL = A2,, (JUMP (QUTBU1)] ; 11 n'y a pas de 2ème argument ; 
516 MOVEX A2, ; charge 1e tampon ; 
B OUTBU1: XMOVE А1,А1, [RETURN] ; retourne le caractère présent ; 
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519 ; Fonction EXPLODE ; 
520 ; —Y 
521 
522 ; Utilise les mëmes routines que les ; 
ES ; Fonctions standard de sortie ; 
4 
552 ENTRY  EXPLODE, 1SUBR 
527 EXPLODE: MOVE  NIL,A2 ; prépare la liste résultat ; 
528 XCONS  NIL,A2 ; fabrique ie ler doublet ; 
523 PUSH А2 ; sauve pour le GC et le retour ; 
o30 MOVE = A2,(8 LEXPLD) ; liste courante en formation ; 
531 MOVE “Т, 0% IEXPLD) ; indicateur EXPLODE = vrai ; 
532 NOP „ , [CALL (PRGBJDI ; explosion de ;'objet > 
533 MOVE NiL,O9 IEXPLD? ; indicateur EXPLODE = Faux ; 
934 CDR TST, A1, [RETURN] ; retourne la liste des caractères ; 
535 
= : Rajoute un espace à la liste des caractères ; 
S. 
538 EXPLS: PUSH Al ; Registres de travail ; 
539 PUSH А2 
540 MOYE көл чк 2 À ; Tout changement de ligne est ; 
541 EXPLSi: ХСОМ NIL,A1 : transformé en espace ; 
542 MOVE (S LEXPLO),A42 ; récupère la liste courante ; 
543 SCOR AL,A2Z ; rajoute l'élément en queue ; 
544 MOVE А1, LEKPLD) ; nouvelle queue ; 
545 PCP A2 : restaure les registres de travail ; 
546 POP А1,, (RETURNI ; et rentre ; 
547 
548 : Rajoute le caractère А4 dans ja liste EXPLODE ; 
549 
550 EXPLCH: PUSH A4 ; sauve le caractère ; 
551 PUSH А2 ; pour travailler ; 
552 XCONS NIL z transformé en espace ; 
553 MOVE (8 LEXPLD), А2 ; récupère la liste courante ; 
554 SCDR Â&, А2 2 rajoute l'élément en queue ; 
555 MOVE А4, (8 LEXPLD) ; nouvelle queue ; 
596 POP A2 ! restaure les registres de travail ; 
557 POP A4, , [RETURN] ; et rentre ; 
598 
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961 BUFAT: 
962 BUFOUT: 


964 PRMDP : 
965 PRCDP : 


967 PRMLP : 
568 PRCLP: 


570 PRMLN: 
S71 PRCLN: 


573 SPRINT: 
574 POCOUR: 
575 NBLEFT: 
576 NBRIG: 


580 IEXPLD: 
981 LEXPLD: 


588 "OK 


APPENDICE E 


; données des fonctions de sortie ; 


BLOCK 30,0 
BLOCK 132, 
DATA 100 
DATA 0 
DATA 1000 
DATA 0 
DATA 1000 
DATA 0 


DATA 0 


DATA 0 


DATA 0 
DATA 70 


; tampon de sortie d'un atome ; 


noan ; tampon de sortie d'une ligne ; 


; profondeur maximum d' impression 
; profondeur courante d'impression 


; nb de ligne maximum d' impression 
; nb courant de lignes imprimées 


; longeur maximum d'impression ; 


; longeur courante d'impression ; 


; SP au début de PROBJ ; 

; index courant sur BUFOUT ; 
longeur de la marge gauche ; 
longeur de Ja ligne ; 


< w 9a N 


; Données de 1a fonction EXPLODE ; 


DATA NIL 
DATA NIL 


)) 


225 ; Fin de l'imprimeur ; 


; indicateur EXPLODE ; 
; liste en formation ; 


590 ; Définition du macro-caractére d'activation ; 


991 

992 (DMC "k" О 

593 ; É = *P ; 

594 [QUOTE 

595 (VCMC2 

596 [['MOVE [QUOTE CREAD)] ”А11 

997 * (NOP NIL NIL CALL (PROBJT)) 

998 ° (NOP NIL NIL CALL CPPRINT)) 

222 ” (NOP NIL NIL CALL (EXPLODE))1)1) 
601 ; Epilogue standard ; 

602 

603  (PROGN 

604. (ANACODE ? (^pprinter)) 

605 (STATUS 1 1) 

606 (PRINT "... Imprimeur MIS - VCMC2 chargé. ") 
GH (PRINT " Es pour imprimer s")) 
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| 123089 REFERENCE 


Signification des codes associés aux numéros des lignes : 


pe DE DF DM DMC ou ENTRY 


# définition de fonction ce ty 

& définition de fonction de type ESCAPE, ESCLOOP 
définition d'étiquette dens PROG, DO, LAP ... 

variable argument d'une fonction 

variable affectée par SETG ou SETQQ 

nom apparaissant dans une ?-expression quotée 

- code instruction assembleur 


vj a eg 


Page E-13 


Е DMC 592 

5 DMC 35 

CODE DF 39 

DMP ENTRY 410 

ECL ENTRY 85 

EXPLODE ENTRY 525 

і МААСІМ ENTRY 480 

OUTBUF ENTRY 51i 

QUTPOS ENTRY 502 

PLENGTH ENTRY 422 

PPRIN ENTRY 371 

PPRINT ENTRY 372 

PRETTY ENTRY 373 

PRIN ENTRY 204 

PRINCH ENTRY 233 

PRINT ENTRY 215 

PRINTLENGTH ENTRY 455 

PRINTLEVEL ENTRY 448 

PRINTLINE ENTRY 436 

PTYPE ENTRY 428 

RMARGIN ENTRY 490 

TERPRI ENTRY 223 

1 xMARK:x 474* 

2  QOSUBR 85 

3 15URH 223 371 372 422 4636 445 456 480 490 

4 25088 233 428 511 

5 5& 55 56 57 58 59 96 103 104 
108 103 108 110 11 115 216 118 119 
125 127 128 134 135 152 153 154 15 
181 175 177 177 193. 309 312 327 331 
355 362 449 441 450 451 460 451 472 
496 4937 505 507 530 531 nas 542 544 

G Ai 61 63 04 65 7 75 80 88 59 
1ЗБ 138 151 157 159 15 156 170 183 
185 185 18 206 202 210 21 212 225 
228 233 259 25 252 255 256 27 257 
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517 517 534 538 540 541 543 544 546 596? 

7 А2 72 76 79 98 99 101 102 137 140 141 164 
165 166 167 170 209 212 236 237 238 239 240 
241 258 263 265 274 277 325 326 387 388 389 
391 392 399 400 401 402 404 412 430 431 515 
516 527 528 522 530 539 542 543 545 551 553 


554 556 
АЗ 73 78 138 142 143 167 168 264 267 270 392 
393 395 397 414 
9 A4 74 77 118 133 134 135 140 162 169 172 181 


189 192 235 253 254 267 268 269 271 291 294 
341 347 550 552 554 555 557 


10 ADD 64- 102- 108- 119- 128- 134- 141- 160- 176- 309- 327- 
339- 355- | 

11 АМАСОПЕ 604 

12 BLOCK 561- 562- 

13 BUFAT 136 139 561: 

14 BUFOUT 60 97 117 126 562: 

15 CALL 76 87 135 140 155 169 172 175 178 180 184 


188 189 190 191 192 206 207 208 218 227 238 
293 258 269 271 273 290 291 292 293 299 300 
310 316 320 326 328 329 335 340 341 344 346 
347 356 358 360 377 382 401 483 505 513 5% 


16 CAR 164- 170- 184- 250- 257- 263- 270- 273- 343- 387- 413- 

17 CDR 166- 167- 183- 206- 264- 267- 272- 300- 325- 342- 344- 
356- 358- 412- 534- 

18 CODE 304 40 

19 CONS 391- 394- 396- 398- 404- 405- 

20 DATA 279- 280- 28l- 282- 283- 284- 285- 564- 565- 567- 568- 
570- 571- 573- 574- 575- 576- 580- 581- 

21 DE 394” 

22 DF 396” 

23 DM 398” 

24 DMC 35 992 

25 DMP 405' 4105 

26 DP 412: 

27 ENTRY 85 204 216 223 233 371 372 373 410 422 428 
436 446 456 480 490 502 511 525 

28 EOL 79' 858 87: 

29 EVCAR 206 

30 ЕУҒЕХР 261 

31  EXPLCH 115 550: 

32 EXPLODE 9294 527: 599 

33 ЕХРІ5 96 124 538: 

34 ЕХРІ 51 541: 

35 FALSE 388 390 8403 

36 ҒАТОМ 388- 

37 FLIST 159- 255- 354- | 

38 ЕМ 96-  115- 124- 168- 252- 268- 

39  FNUMB 470- 493- 

40 FSUBR 204 216 373 410 

41 FTYP ` 392- 

42 FULLIN 71: 116 125 135 197 219 328 340 360 383 

43 FYAL 383- 

44 GE 116- 125- 143- 

45 GET 258 401 

46 GT 104- 135- 228- 241- 495- 

47  IEXPLD 54 96 115 124 531 533 580: 

48 ITSOFT 76 

49 JUMP 65 96 98 104 110 115 116 124 125 138 143 


159 161 162 165 168 170 173 177 181 186 187 
197 211 2186 225 228 236 237 241 252 254 255 
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260 261 265 268 270 289 294 309 311 321 327 
330 | 339 349 361 383 388 390 393 394 395 396 
397 398 403 405 414 430 439 449 459 470 8471 
476 482 492 493 494 495 504 515 


90 | JUMPX 277- 

51 L 30, 30 

o2 LE 161- 177- 472- 

53 LEXPLD 530 542 544 553 555 581: 

54  LMARGI 482 485: 

55 LMARGIN 480# 482: 

56 LT 65- 471- 494- 

57 MOVE 54- 55- 56- 57- 58- 59- 61- 75- 76- 88- 98- 


107- 137- 153- 154- 155- 162- 169- 172- 181- 189- 192- 
209- 212- 226- 235- 237- 253- 254- 258- 269- 271- 291- 
294- 341- 347- 400- 401- 414- 440- 441- 450- 451- 460- 
461- 484- 485- 496- 497- 506- 507- 527- 530- 531- 533- 
540- 542- 544- 553- 555- 596” 


58 MOVEX 63- 101- 118- 127- 516- 

59 NBLEFT r 22И 309 312 327 331 339 350 355 362 484 
60 NBRIG 99 116 125 135 472 496 497 578: 

61 NEQ 109- 165- 265- 393- 395- 397- 

62 NOP 35° 67-  87-  144- 173- 175- 180- 188- 190- 191- 207- 


208- 218- 219- 229- 242- 290- 292- 293- 299- 310- 316- 
320- 321- 328- 329- 335- 340- 483- 505- 532- 597° 598” 


599” 

63 OK 588” 

64 OUT 100- 105- 106- 

65  OUTBU1 515 517: 

66  OUTBUF 5110 513: 513 

67 OUTCH 115: 140 162 169 172 181 189 192 238 253 254 
269 271 291 294 341 347 

68 00Т111 99: 104 

69 00Т112 98 104: 

70 OUTLIN 87 96: 227 

71 OUTPOI 904 507: 

72  OUTPOS 5020 504: 

73 00Т5Р 124: 175 188 190 207 290 292 299 

74  PLEN 133- 138- 424- 

75  PLENGTH 422# 424 

76 PNAM 136- 

77  POCOUR 57 103 104 107 116 118 118 125 127 128 134 
506 507 574: 

78 РОР 77- 78- 79- 80- 157- 185- 210- 239- 262- 275- 301- 
345- 348- 357- 359- 378- 383- 402- 545- 546- 556- 557- 

79 POSER = 470 471 474: 493 494 495 | | 

80 PP 251: 270 293 377 382 

81 PP1 ` 299: 310 316 320 36 329 335 

82 PP10 292 255: 

83 PP11 260 262: 

84 РР12 265 268 271: 

85 PPCAR 249: 273 300 344 356 358 

86 PPRIN 371# 377: 

87 PPRINT 37284 382: 394 396 398 405 598” 

88 PPTO 279 309: 

89 РРТ02 310: 311 

90 РРТОЗ 309 311: 

91 РРТІ 280 316: 

92 РРТ2 281 320: 

93 РРТЗ 282 325: 346 

94 PPT31 321 327: 

95 PPT32 328: 330 

96 РРТЗЗ 327 330 
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97 РРТ4 283 
98 PPTS 284 
99 PPT51 340: 
100 РРТ55 339 
101 PPT6 285 
102 PPT61 356: 
103 PPTBLX 277 
104 PPTE 276 
105 PPTE7 289 
106 PRAT2 139: 
107 PRAT3 138 
108 PRATOM 133: 
109 PRCDP 155 
110 PRCLN 154 
111 PRCLP 108 
112 РВЕТТЗ 393 
113 PRETT4 395 
114 PRETT6 397 
115 PRETTY 258” 
116 PRII? 63: 
117 PRIN 2048 
118 PRINI 35 
119 PRINI1 206: 
120 PRINCI 238: 
121 PRINC2 236 
122 PRINCH 2338 
123 PRININI 54: 
124 PRINT 216# 
125 PRINTL1 449 
126 PRINTLENGTH ` 4564 
127 PRINTLEVEL 4468 
128 PRINTLINE 4365 
129 PRINTN1 439 
130 PRMDP 99 
131 PRMLN o6 
132 PRMLP 109 
133 PROBJ 151: 
134 PROBJO 155 
135 PROBJ2 161 
136 PROBJS 165 
137 РНОВ./6 175: 
138 PROBJ7 173 
139 PROBJS 177 
140 PROBJS 178 
141 PROBJD 178 
142 PROBJE 110 
143 PROBJT 197: 
144 PROGN 603 
145 PTYP 274- 
146 PTYP1 430 
147 PTYPE 4288 
148 PUSH 71- 
382- 
149 PUT 414 
150 QUOTE 165” 
151 READ 35 
152 RETURN 67 
242 
451 
153 REVIVE 66- 
154 RMARG1 492 
155 RMARGIN 490% 
156 RPLACA 39 


73- 
474- 


594 
88 


312 
472 
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255 

193 6565: 

571: 

568: 

4017 414? 

607 

461: 

451 6564: 

451 570: 

567: 

532 

184 

74- 151- 178- 197- 238- 256- 276- 
475- 476- 529- 538- 539- 550- 551- 
596 

109 119 128 144 157 193 212 
331 350 354 362 378 424 432 
485 497 507 517 534 546 
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157 SCUR 543- 554- 

158 SERROR 476 

159 SILENCE 62- 

160 SINDEX 60- 97-  117- 126- 139- 513- 

161 SPRINT 110 152 573: 

162 SPTYP 431- 

163 SSTACK 110- 

164 STACK 152- 

165 STATUS 26 605 

166 SUB 103- 142- 193- 227- 240- 312- 331- 350- 362- 

167 T 531” 

168 TERPRI 227: 228 

169 TERFR2 225 228: 

170 TERPRI 2238 225: 

171 TESPOS 470: 483 505 513 

172 TLIST 186- 211- 311- 330- 346- 349- 360- 361- | 

173 TNIL 187- 260- 289- 326- 390- 403- 430- 439- 449- 459- 482- 
492- 504- 515- 

174 TNUMB 225- 236- 

175 TST 183 206 272 273 2724 300 342 344 356 358 534 

176 VCMC2 595 

177 XCONS 528- 541- 552- 

178 XMOVE 99-  140- 517- 

179 XTOPST 261- 


180 +pprinter 39'  604' 


http:;//www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 287 / 362 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 288 / 362 


APPENDICE F 


- ; VCMC21 . УІІ 
3 ; INTERPRETE WLISP| en machine VCMC2 
5 ; Ce fichier doit étre édité au moyen de : 
6 i (CROSSF U2I T T T (NIL/T) T T) 
: ; (NIL/T) si VERSATEC 
9 ; | 
12 ; Jéróme CHAILLOUX 
12 ; Département d'Informatique 
13 ; Université de Paris 8 - Vincennes 
14 ; Route de la Tourelle 75571 Paris Cédex 12 
2 ; Tél : 374 12 50 poste 299 
17 ; L.I.T.P. (CNRS LA 248) 
18 ; 2 Place Jussieu 75221 Paris Cédex 05 
F Tél : 336 25 25 poste 53-70 
0 ; 
21 : I.R.C.A.M. 
22 S 31 Rue St Merri 75004 Paris 
23 ; _ Tél : 277 12 33 poste 48-48 
24 ; 
25 ; 
26 ; règles de reconnaissance des identificateurs : 
27 ; 
28 ; ler car. signification 
29 ; 
30 A & fonctions d'échappements (ESCAPES) 
31 2 x fonctions internes du simulateur 
32 ; e variables globales à tout le simulateur 
33 i # variables libres pour certaines fonctions 
34 ; (mais liees par des fnts de l'interprète) 
35 ; / indicateurs sur P-listes 
36 ; ? indicateurs du simulateur (e.g. T ou NIL) 
37 ; 
38 c >> 
39 
40 (STATUS 2 1 2) 
41 
42 ; Pour prettypr inter correctement 1e code ; 
43 


44 (DF CODE (L) L) 
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47 ; Pour contrôler la lecture ; 


49 (DMC "5" О ; (PRINI (READ)) ; ' (NOP)) 
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51 : TOP-LEVEL de l'interprète et erreurs ; 


52 

o3 (RPLACA '^interpreter 

54 (CODE NIL 

55 іғ------- | ; 
56 D l; 
Si d Interprète VIS - VCMC2 | ; 
59 Ç... 
60 

E: : Erreur de Ta machine ; 

63 MERROR: PRINI °"жкжжж Erreur machine : HALT VCMC2. " 

64 NOP ,. [CALL (OUTLIN)] | 

65 PRSTACK'100 

66 PRSTAT 

67 STOP 

68 

=> ; Erreur de l'interprète ; 

71 SERROR: MOVE '"ERROR,A1 ; nom de la fonction ; 

72 MOVE  NIL,A2 ` ; init liste des arguments ; 
73 SERRO1: POP A3 ; argument suivant ; 

74 EQ АЗ,” XMARKx, [JUMP (SERRO2 1 ; c'est fini ; 

75 CONS A3,A2, [JUMP (SERRO1)1 ; pour les autres arguments ; 
Le SERRO2: CONS (8 FORME), A2, [JUMP (ITŠOFT)] ; rajoute FORME en tête ; 
72 ; la fonction ERROR standard ; 

23 ENTRY ERROR, NSUBR 

82 ERROR: ; erreur normale ; 

83 CAR AL, TST ; empile la dernière forme ; 
84 CDR А1, TST, [CALL (QUTLIND1; empile le reste des args ; 
85 PRINI '"жжж ",, [JUMP (ERRO40] 

86 ERRO2: CDR A1,TST ; sauve Île reste ; 

87 CAR A1,A1, [CALL (PROB.D 3 ; édite l'objet suivant ; 

88 ERRO4: РОР A1 

89 TLIST А1,, [JUMP (ERRO2)5! ; il en reste ; 

90 NOP ,. [CALL COUTLIND] 

91 PRINI '"Derniàre forme évaluée : " 

92 POP A1,, [CALL (PROBJT?] ; imprime la dernière forme ; 
93 PRSTACK' 30 


94 MOVE NIL,A1, [JUMP (EX! TCHRONOLOG? 1 
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95 ; TOPLEVEL ; 

96 — >j 

97 

55 ; appel EVAL 1 fois ; 

100 SINGLE: ; EVAL 1 fois ; 

101 SINGLET: ; peut-étre avec TRACE ; 
102 SSTACK ° (((STOP)) xEOSx) 

103 SILENCE 

104 MOVE МІР, (8 EVALST) ; plus de step ; 

105 MOVE 0, (@ EVALCH) ; chrono 0 ; 

106 PUSH  A1,, [CALL (READINI)] ; sauve l'argument à évaluer ; 
107 NOP , | [CALL (PRININIO] 

108 MOVE '0,(@ PBIND) 

109 MOVE NIL, (8 FORME) 

110 PRINI '"?" 

111 TOPST А1, , [CALL (PROBJT)] ; imprime l'argument ; 

112 REVIVE | 

113 POP А1,, [CALL (EVALA121 ; évalue l'argument ; 

114 SCVAL А1,71Т ; le IT feature ; 

115 SILENCE 

116 abus "ie " , [CALL (PROBJT)] 

117 REVIVE 

ns NOP |, | [RETURN] 

EN ; Boucle principale de l'interprète ; 

122 MAIN:  SSTACK , (((STOP)) xEOSx) 

123 MOVE = NIL, (8 EVALST) ; plus de step ; 

124 NOP ‚› [CALL (READINI)] 

125 NOP „ , [CALL (PRININI)] 

126 MOVE ”0,‹@ PBIND) 

127 MOVE = NIL, (8 FORME) 

128 MAINI: MOVE '0,(@ EVALCH) ; CHRONOLOGIE = 0 ; 

129 MOVE * TOPLEVEL, A1 ; le nom de 1a fonction ; 
130 MOVE  NIL,A2, [CALL (ІТ50ҒТ21; 7a liste d'arguments ; 
131 PRSTAT ; impression des statistiques ; 
135 МОР „ | [JUMP (MAIN1)] ; retourne à l'interprète ; 
1. ; Fonction TOP-LEVEL ; 

122 ENTRY  TOPLEUEL, OSUBR 

138 TOPLEVEL : 

139 SILENCE ; pour éviter les lères traces ; 
140 NOP , | [CALL COUTLIND 1 

141 PRINI *'"toplevel",, [CALL (OUTLIN)] 

142 PRINI "'"?" 

143 REVIVE 

144 NOP |, | [CALL (READ) 1 

145 NOP ve [CALL (PROBJT)] А (PRINT 'TOPLEVEL) В 
146 NOP  ,,[CALL (EVALA1)] ; (PRINT (EVAL (READ)))) ; 
147 SCVAL А1, °ІТ ; le IT feature ; 

148 | SILENCE 

149 PRINI "ie ",, [CALL (PROBJT)] 

150 REVIVE 

151 NOP ,» [RETURN] 
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CT Атаа 


152 ; Interprète : EVAL ; 
153 ———————-——; 
154 


; EVAL : 3SUBR % 
156 z Al < la forme à évaluer ; 
, 


157 : A2 < la valeur de CHRONOLOGIE ; 
125 ; АЗ « 1a valeur de STEPEVAL ; 
= ENTRY  EURL, 3SUBR 
162 EVAL: TNIL  A2,, [JUMP (EVALL2)] ; pas de nouvel état ; 
163 PUSH (8 EVALST) ; sauve le step ; 
. 164 PUSH (8 EVALCH) ; sauve l'état ; 
165 MOVE А2, (@ EVALCH), [JUMP (EVALLS3)] ; pour finir Те bloc ; 
166 EVALL2: TNIL АЗ, , [JUMP (CEVALAN)] : pas d'arguments spéciaux ; 
167 PUSH (@ EVALST) ; sauve l'état de la trace ; 
168 PUSH (8 EVALCH) ; sauve l'état de CHRONOLOGIE ; 
169 EVALL3: MOVE АЗ, (@ EVALST) : charge la TRACE ; 
170 PUSH (@ PBIND) ; sauve l'ancien PBIND ; 
171 PUSH ? 3 ; type du bloc ; 
172 STACK (8 PBIND) ; nouveau PBIND ; 
UA PUSH (UNBIND),, [JUMP (EVALAND ] 
1/5 ; EVAL interne ; 
177 EVAL1: ;"** (EVAL (CAR A1)) pour les ISUBR ; 
178 EVCAR: ;*** (EVAL (CAR A1)) interne ; 
179 CAR A1,A1 ; А1 < (CAR А1); 
180 EVALA1: ;*** (EVAL A1) avec test interruption ; 
181 FNIL (8 EVALSD,, [JUMP (EVALT)] ; i! y a 1а TRACE ; 
182 EVALAN: ; *** (EVAL A1) sans test interruption ; 
183 MOVE  A1,(@ FORME) ; sauve toute la forme ; 
184 DISPT (TEVAL1),A1 ; dispatch sur type ; 
185 TEVAL1: DATA (EVALAT) ; 1a forme est un symbole ; 
186 DATA (EVALNB) ; la forme est un nombre ; 
TH DATA (EVALIS) : la forme est une liste ; 
1 
183 ; Evaluation des symboles atomiques ; 
190 
191 EVALAT: CVAL A1,A1 : charge 1a valeur de l'atome ; 
192 NEQ A1,’ -UNDEF, [RETURN] ; test si 1a C-VAL est définie ; 
193 
194 PUSH 'xMARKx ; bloc de fin des arguments ; 
195 PUSH  ?"EVAL : Variable indéfinie.",, [JUMP CSERROR)] 
196 
ЕИ ; Evaluation des nombres ; 
9 
199 EVALNB: NOP „ | [RETURN] ; les nombres sont des constantes ; 
200 
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ege 


502 : Les interruptions de EVAL : EVALT STEPEVAL ITSOFT ; 

203 

204 EVALT: ; si TRACEVAL non-NIL ; 

205 MOVE NIL, (8 EVALST) ; efface la trace ; 

206 MOVE A1,A2 ; prépare 1a liste d'arguments; 
207 XCONS  NIL,A2 ; A2 = (forme) ; 

208 MOVE X 'STEPEVAL,A1, [CALL CITSOFT)] 

209 ; appel de (STEPEVAL forme) ; 
2 MOVE 'T,(@ EVALST), [RETURN] 

212 ; La Fonctions STEPEVAL standard ; 

213 ; réalise une trace de tous les appels internes de EVAL ; ` 
Zt ; l'argument est la forme quidevait être évaluée ; 

At ENTRY  STEPEURL, 1SUBR 

218 STEPEVAL: 

219 PUSH A1 : sauve la forme ; 

220 MOVE —"*"-»",A1,[CALL (PROB.D1 ; imprime -> ; 

221 TOPST A1,, [CALL (PROBJT?] ; puis l'argument ; 

222 POP А1 : récupère la forme ; 

223 MOVE (8 EVALCH) , A2 t effectue ; 

224 SUB °1,A2 ; (5981 (STATUSEVAL)) ; | 

225 MOVE * T, A3, [CALL (EVAL) 1 : trace l'évaluation de 1a forme ; 
226 PUSH Al : sauve la valeur de l'évaluation ; 
227 MOVE — "'"«-",A1,lCALL (PROBJI ; imprime <-; 

228 | TOPST A1,, [CALL (PROBJT)] : imprime 7a valeur ; 

550 РОР А1,, [RETURN] : et rentre de STEPEVAL ; 

231 : Lancement d'une IT soft ; 

232 ; Al < 1a Fonction ; 

233 ; A2 « 1a liste d'arguments (a 1a APPLY) ; 

a : change de CHRONOLOGIE +1 ; 

236 ITSOFT: | ; prépare un bloc 3 ; 

237 PUSH (8 EVALST) ; sauve l'état de la trace courante ; 
238 PUSH (8 EVALCH) ; sauve 1a chronoiogie courante ; 
239 PUSH (8 PBIND) : sauve l'ancien PBIND ; 

240 PUSH °З ; type de bloc = 3 ; 

241 STACK (@ PBIND) ; new PBIND ; 

242 ADD *1,(@ EVALCH) ; change de CHRONOLGIE ; 

ZH PUSH (UNBIND),, (JUMP (APPLYO1 ; et appel APPLY ; 
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245 ; Evaluation des formes ; 

246 --------ҺҺ--------/ 

247 

248 EVALIS: ;"*"* Evalue la forme А1; 

249 CAR A1,A2 ; A2 < 1a fonction, ; 

290 CDR А1,А1 ; А1 < la liste des arguments ; 
251 EVALFU: ;*** Evalue la fnt А2 et larg А1; 
294 DISPT (TEVAL2),A2 ; dispatch sur 1a fonction ; 

254 TEVAL2: DATA (EVALFAT) ; la fonction est un symbole ; 

295 DATA  (EVALFNB) ; la fonction est un nombre ; 
F DATA (EVALFLI) ; Ta fonction est une liste ; 
258 EVALFAT:FVAL А2, TST ; empile la F-VAL de l'atome fonction ; 
259 FTYP А2,АЗ ; АЗ < Те F-TYP codé de l'atome fonction ; 
260 EVALIN: 5 54 ;*** Evalue un INTERNAL ; 
| JUMPX  (CTEVAL3),A3 ` branchement indirect indexé ; 
263 . Table du branchement indirect indexé sur le F-TYP de EVAL ; 
264 : On effectue une rupture de séquence avec ; 
265 f - Al < la liste des arguments ; 
266 ; - A2 < le nom de la fonction ; 
267 : ~ АЗ < le F-TYPE codé de la Fcnciion ; 
aE ; - pile < la F-VAL de la fonction ; 
270 TEVAL3: DATA (UDFE) ; code 0 : pas de définition de Fonction ; 
271 DATA (ЕУА(0) z code 1 : SUBR à 0 argument ; 
272 DATA (EVAL1) ; code 2 : SUBR à 1 argument ; 
273 DATA (EVAL2) ; code 3 : SUBR à 2 arguments ; 
274 DATA (EVAL3) ; code 4 : SUBR à 3 arguments ; 
275 DATA (EVALN) ; code 5 : SÜBR а N argumemnts ; 
276 DATA (EVALF) ; code 6 : FSUBR ; 
277 DATA (EVEXP) ; code 7 : EXPR ; 
278 DATA (EVFEXP) ; code 8 : FEXPR ; 
279 DATA (EVMAC) ; code 9 : MACRO ; 
d DATA (EVESC) ; code 10 : ESCAPE ; 
Se * ; La fonction est un nombre == CNTH ; 

83 
284 EVALFNB: PUSH  A2,, (CALL CEVCAR)] ; sauve le nb et évalue la liste ; 
285 POP A2 ; A2 « le nombre ; 

286 LE A2,'0, [JUMP (CAR)] ; C'est Fini : ler élément ; 

287 NOP ,, (JUMP (EVALN2)] ; recherche de l'élément ; 

288 EVALN1: CDR А1,А1 ; avance dans 1а liste ; 

289 | FLIST A1,, [RETURN] ; si la liste est vide ; 

290 EVALN2: SUBFZ 71,А2, [JUMP (EVALN1)] ; 11 faut encore avancer ; 
25. CAR A1,A1, [RETURN] ; ramène l'élément pointé ; 

EN ; Evaluation des fonctions spéciales ; 

4 

295 EVALFLI: ;*** la fonction est spéciale ; 
296 CAR A2,A3 : A3 < fonction de la fonction ; 
297 EQ A3,' LAMBDA, [JUMP (EVALD 3 ; c'est une lambda-explicite ; 
298 EQ A3, ' INTERNAL, [JUMP (EVALI2] 

299 : c'est une fonction INTERNAL ; 
300 PUSH Al ; sinon sauve la liste des arguments ; 
301 MOVE А2,А1, [CALL (EVALA121] шш 7a fonction ; 

302 MOVE А1,А2 i ; A2 < la nouvelle fonction ; 

2 POP A1,, [JUMP (EVALFU)] ; vers la re-évaluation de 1a forme ; 
305 EVALL: ;**"* Ja fonction est une à explicite ; 
306 CDR A2, TST, [JUMP (EVEXP)] 
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307 

308 EVALI: ің" Ja fonction est INTERNAL ; 
309 CDR A2, A2 ; 42 < (FTYP КИЛ!) 2 

310 САН А2,АЗ ; A3 < FTYP ; 

311 CDR A2, A2 ; А2 < ( FUAL) ; 

5. CAR A2,TST, [JUMP (EVALIN 1; pile < FUAL ; 

13 
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Se : Evaluation rapide de type SUBR ; 

316 

317 UDFE: 

318 ; l'atome n'a pas de fonction associée ; 

2 : indirection sur la C-VAL ; 

321 POP A3 ; nettoie l'ancienne F-VAL ; 

322 CVAL А2,АЗ : indirection sur C-VAL ; 

323 CVAL АЗ, Аё : teste si cette C-VAL n'est pas une 
324 EQ A3,A4, [JUMP CUDFER) : constante : evite le bouclage ; 
325 MOVE A3,A2, [JUMP (EVALFU)] ; et reappelle la fonction ; 

326 UDFER: PUSH  ’xMARKx%x  : : Fin des arguments ; 

327 ` PUSH '"EVAL : fonction indéfinie : " 

SCH PUSH  A2,, [JUMP (SERROR)] 

E POPJ: NOP „ | [RETURN] ; continuation RETURN simple ; 
332 EVALO: МОР , |, [RETURN] ces Traitement des OSUBR ; 

522 : оп tombe sur la F-VAL empilée! 
335 EVAL2: ;***" Traitement des 2SUBR ; 

336 CDR A1,TST, [CALL (EVCAR)] ; évalue le ler argument ; 

337 XTOPST A1,, [CALL (ЕУСАН) 1 : évalue le 2ème argument ; 

338 MOVE А1,А2 ; A2 < la valeur du 2ème arg ; 
339 POP A1,, [RETURN] ; A1 < la valeur du ler arg ; 
Se : on tombe sur 1a F-VAL empilée! 
342 EVAL3: ;*** Traitement des 3SUBR ; 

343 CDR A1,TST, [CALL (EVCAR)] ; évalue le ler argument ; 

344 XTOPST A1 ; echange sa valeur et le reste ; 
345 CDR A1,TST, [CALL (EVCAR)] ; évalue le 2ème argument ; 

346 XTOPST A1,, [CALL (EVCAR)] : évalue le 3ème argument ; 

347 MOVE А1,АЗ ; A3 « la valeur du 3ème argument 
348 POP A2 ; A2 « 1a valeur du 2ème argument 
POP A1,, [RETURN] ; Ale la valeur du ler argument 
35 

351 EVALF: МОР „ | [RETURN] ;** Traitement des FSUBR ; 

352 : on tombe sur la F-VAL empilée! 
353 
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373 EVEXP: 


380 ЕУЕХРІ: 


386 EVEXP2: 


394 EVEXP3: 
395 ЕУЕХР4: 


399 EVEXPS: 


408 EVEXP6: 


412 TEVEX: 


APPENDICE F 


; Evaluation des EXPR ; 


. 


; Fabrique dans la pile un bloc de contrôle de type ; 


[ UNBIND 
PBIND > 0 
[ F-VAL de 1a fonction 
[ fin du bloc de contrôle 
[ nom de 1a variable N 
[ son ancienne valeur 


iU om eag 


e wa. I. a ua Ча w. Wa 44 De 9a Wa We 


[ nom de la variable 1 1 
[ son ancienne valeur 1 
Î ' “MARK” ] 
[ ancien PBIND ] 


ФР ër а A Р жы Q. MEM оя ЛАР at 230 ашу SUP AMD ADU Ñ жш AMD G ж” ЛЫР s жә s s 


tu te We We 44 w, Mo Va wç S 4% % Va 


TOPST A4 ; АА < Та F-VAL ; 
CAR A4, A2 ; АР < la liste des paramètres ; 
PUSH ”жМАНКж,, [JUMP «ЕУЕХР221 

г empile le marqueur de fin de variables ; 


; Fabrication des emplacements en pile et évaluation ; 


CDR A1,TST ; empile ie reste des valeurs ; 
PUSH  A2,, [CALL (ЕУСАН)12 ; emp?le toutes les variables ; 
POP A2 : récupère toutes les variables ; 
XTOPST A1 force la valeur évaluée ; 

CAR A2, TST ; empile le nom de 1а variable ; 
CDR А2, А2 variable suivante ; 


TLIST A2,, [JUMP (EVEXP1)] 

TNIL AG, [JUMP (ЕУЕХР3)1 

PUSH А2, , [CALL (EVLIS)] 
A 


PUSH Al 


il en reste ; 

c'est vraiment jia fin ; 
c'est une variable pointée ; 
empile la valeur ; 

empile le nom ; 


oW. Wa Wa %. me Vo 44 24 a 


; Effectue la liaison superficielle ; 


STACK A4,, [JUMP (ЕУЕХР5)1 garde la hauteur de la pile ; 


CVAL А2,А1 ; récupère l'ancienne C-VAL ; 
XTOPST A1 ; qui est sauvée en pile ; 

ӨСУДІ. A1,A2 ; effectue 1a nouvelle liaison ; 
POP A1 ; saute la valeur ; 

POP A2 ; lecture de la nouvelle variable ; 
NEQ А2,” xMARKx, [JUMP (EVEXP4)] ; il y en a encore ; 

MOVE (8 РВІМО),А1 z Al e Те PBIND ; 

XTOPST A1 ; Force PBIND et récupère la F-WAL ; 


; Test de récursion terminale ou mutuelle ; 


POP A2 ; saute l'ancien PBIND ; 
STACK A3 ; АЗ + pointe sur la Fin du bloc ; 
NEQ TST, (UNBIND) , [JUMP (EVEXPND 1 

| ; pas une évaluation terminale ; 
JUMPX (TEVEX), TST ; aiguillage sur łe type de bloc 


DATA (TEVEXL) type 0 : bloc LAMBDA ; 

DATA (TEVEXID type I : bloc WHERE/ESCAPE ; 
DATA (EVEXPN) type 2 : bloc LETF ; 

DATA (EVEXPN) type 3 : bloc STEPEVAL ; 


` ` 


Dn “ea So a 
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416 

417 TEVEXL: ; bloc LAMBDA ; 

418 EQ А1,15Т, [JUMP (ЕУЕХРӘ)1 

419 2 c'est récursif : prépare la pile ; 
SCH SSTACK TST,, [JUMP (EVEXPE)] ; passe à la f in du bloc ; 

422 TEVEXH: ; bloc WHERE/ESCAPE ; 

423 POP A2 ; saute un élément ; 

424 POP A2 : saute un élément ; 

425 POP A2 ; saute un élément ; 

2 РОР А2,, [JUMP «ЕУЕХР6)1 ; saute l'ancien PBIND ; 

428 EVEXP9: : c'est tail ou co-post récursif ; 
429 . SSTACK АЗ ; remise état initial de 1а pile ; 
CDR A1,A1, [JUMP (PROGN)J ; et réalise un JUMP! ; 

432 EVEXPN: ; appel normal ; 

433 SSTACK AA : repasse en début de bloc ; 

434 PUSH A3 ; empile l'adresse de fin du bloc ; 
435 EVEXPF: PUSH A1 ; empile 1a F-VAL ; 

436 PUSH '0 ; empile le code du bloc ; 

НЕЙ STACK (8 PBIND) ; sauve le pointeur de pile ; 

215 ; exécution du corps де 1а fonction ; 


441 EVEXPG: CDR A1,A1, [CALL (PROGN)] ; évalue le corps ; 
;... UNBIND doit suivre ...; 
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444 ; UNBIND : Délie un bloc de contróle ; 

445 ; A3 « adresse de retour ; 

77 ; ne doit pas détruire A1 et A2 ; 

448  UNBIND: ess s'il faut faire un RETURN Final ; 
449 MOVE (POPJ) , АЗ ; prépare un RETURN final ; 

450 UNBINP: ;"** si АЗ est prêt ; 

SE JUMPX (TUNBD1),TST ; en fonction du type du bloc : 
453 TUNBD1: DATA (UNBDL ) ; type bloc 0 : bloc lambda ; 

454 DATA (UNBDID ; type bloc 1 : bloc where/escape ; 
455 DATA (UNBDF) ; type bloc 2 : bloc LETF ; 

n DATA (UNBDS) ; type bloc 3 : bloc STEPEVAL ; 
He ; délie un bloc lambda ; 

460 UNBDL: POP A4 |; enlève l'ancienne F-VAL : 

461 POP A4 ; enlève la fin du bloc ; 


“4... 


462 РОР A&,, [JUMP (CUNBDL2)] pour T'analyser ; 

463 UNBDL1: SCVAL  TST,A4 charge l'ancienne C-VAL ; 

464 POP A4 ; dépile encore ; 

465 UNBDL2: NEQ AG, жМАНКж, [JUMP (UNBDL1)] ; ce n'est pas le marqueur ; 
466 POP (@ PBIND) ; repositionne PBIND ; 

Se PUSH АЗ, , [RETURN] ; rentre dans A3 ; 

469 ; délie un bloc WHERE/ESCAPE ; 

SE ; Retourne dans A4 le nom de la fonction ; 

472 UNBDI: РОР (8 PBIND) ; repositionne PBIND ; 

473 POP A4 ; enlève Te nom de la fonction ; 
474 SFVAL  TST,A4 ; restaure l'ancienne F-VAL ; 
479 SFTYP TST,A4 ; restaure l'ancien F-TYP ; 

Е PUSH АЗ, , [RETURN] ; rentre dans АЗ ; 

к ; délie un bloc LETF ; 

480 UNBDF: POP (8 PBIND) ; restaure l'ancien PBIND ; 

481 POP AA ; A4 < le пот; 

482 XTOPST A3 ; adre ret <> (val) ; 

483 PUSH А2 ; sauve tout (APPLY) ; 

484 PUSH Al ; sauve la valeur ; 

485 MOVE A3,A2 ; А2 < Ja (val) ; 

486 MOVE — A4,A1, [CALL (APPLYO]  ; Avanti ; 

487 POP A1 z retourne 1а valeur du corps ; 
255 РОР A2, , [RETURN] ; libere A2 et rentre ; 

SEH ; délie un bloc STEPEVAL ; 

492 UNBDS: POP (8 PBIND) ; restaure l'ancien PBIND ; 

493 POP (8 EVALCH) ; restaure la CHRONOLOGIE ; 

494 POP (@ EVALST) ; restaure Ta vielle val de STEP ; 
SE PUSH АЗ, , [RETURN] ; rentre dans A3 ; 

4 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 300 / 362 


APPENDICE F Page F-13 


497 ; Evaluation des FEXPR, MACRO et ESCAPE ; 
498 Úz—— VV ———— f 
499 
500 EVMAC: MOVE (8 FORME), A1 ; l'argument est la forme elle-même ; 
501 POP A4 ; recupère la F-VAL ; 
= PUSH (EVALA1),, [JUMP (EVFEXB)] ; prepare la re-evaluation ; 
504 EVFEXP: POP A4 ; A4 < la F-VAL empilée ; 
505 EVFEXB: ; liaison de type FSUBR/MACRO ; 
506 ; lie le ler argument de la FVAL A4 avec la valeur A1 2 
507 САН А4, A2 ; A2 « 1а liste de variables ; 
` 508 STACK (8 SAVEP) ; sauve temporairement 1a fin du bloc ; 
509 . PUSH (8 PBIND) ; prépare le bloc de contrôle ; 
510 | PUSH "xMARKx,, [JUMP (EVFEX3)] 
511 EVFEX2: CAR A2,A3 ; A3 < variable suivante ; 
512 CVAL АЗ, Т5Т : sauve l'ancienne CVAL ; 
513 SCVAL А1,АЗ ; force 1a nouvelle valeur ; 
514 PUSH A3 ; sauve le nom de la variable ; 
515 MOVE МП,А1 ; toutes les autres valeurs à NIL ; 
516 CDR A2, A2 d 
517 EVFEX3: TLIST A2, , [JUMP (EVFEX2)1 ; il reste des variables ; 
518 PUSH (@ SAVEP) sauve 1a fin du bloc de contrôle ; 
E MOVE А4,А1, [JUMP (EVEXPF)Í ; Ale la FVAL (cf: EVEXP) ; 
> ; Evaluation des ESCAPE ; 
523 EVESC: ;*** de l'appel rapide ; 
524 PUSH  A2,, [CALL (PROGN)] ; sauve le nom du ESCAPE ; 
525 POP A2 ; recupère le nom ; 
526 EVESC1: ; délie un block dans la pile ; 
927 EQ '0, (8 PBIND), [JUMP (ERÉSC)] ; il n'y a plus de bloc !?! ; 
528 SSTACK (8 PBIND) ; pile en début de bloc ; 
529 TOPST АЗ : récupère 7e sommet de piie ; 
530 EQ A3,'1, [JUMP (EVESC3)] ; c'est un bloc WHERE/ESCAPE ; 
531 MOVE (EVESC1) ,A3, [JUMP (UNBINP)] ; delie ce bloc ; 
532 EVESC3: MOVE (EVESCA) , АЗ, [JUMP (UNBINP)] 
933 ; délie ce bloc WHERE/ESCAPE ; 
534 EVESC4: NEO A2,A4, [JUMP (EVESC1)] ; c 'est pas ia bonne fonction ; 
535 NOP , » [RETURN] ; c'est tout bon ; . 
536 
537 
538 ERESC: ;*** Erreur dans un ESCAPE ; 
539 PUSH 'xMARKx ; fin des arguments ; 
940 PUSH  "'"Erreur ESCAPE : " ; le message ; 
541 | | PUSH А2,, [JUMP (SERROR)] ; le nom du ESCAPE ; 
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543 ; LOSING APPLY ; 
544 je ee iue 


(APPLY fn larg)  2SUBR ; 
; (APPLYN fn al ... aN)  NSUBR ; 


Uia 
TE 
JO 
We We 


548 
549 ENTRY  RPPLY,2SUBR 
550 ENTRY  RPPLYN, NSUBR, 2 
551 
552 APPLYN: CDR A1,A2 ; A2 « la liste des arguments ; 
553 CAR А1,А1 ; Al < Та fonction : 
554 APPLY: MOVE A1,A4 ; en cas d'erreur ; 
555 FATOM A1,, [JUMP (APPLYS)] ; la Fonction est spéciale ; 
556 ` FVAL Al,TST ; empile 1a FVAL ; 
557 FTYP А1,АЗ ; A3 < 1e FTYP codé : 
558 MOVE А2,А1 ; Al < la liste des arguments ; 
559 APPL IN: ; APPLY INTERNAL ; 
ES JUMPX (TAPPLY),A3 ; branchement indirect indexé ; 
562 ; Table des branchements indirects indexés H 
E ; pour le LOSING APPLY ; 
565 TAPPLY: DATA (UDF A) ; code 0 : pas de définition ; 
566: DATA  (POPJ) ; code 1 : SUBR à 0 argument ; 
967 DATA (APPL vi: ; code 2 : SUBR à 1 argument ; 
568 DATA (APPL Y2) ; Code 3 : SUBR à 2 arguments ; 
569 DATA (APPL ҮЗ) ; code 4 : SUBR à З arguments ; 
570 DATA (POPJ) ; Code Š : SUBR à N arguments / 
971 DATA (POP) ; code 6 : FSUBR ; 
972 DATA (APPEXP) ; code 7 : EXPR ; 
573 DATA (EVFEXP) ; code 8 ; FEXPR ; 
574 DATA (EVMAC) ; code 9 : MACRO ; 
272 DATA (EVESC) ; code 10 : ESCAPE ; 
577 UDFA: POP A3 ; libere la F-val ; 
978 UDFA1: PUSH  "xMARKx ; Fin des arguments ; 
579 PUSH ""APPLY : fonction indéfinie: " ; Je message ; 
SCH PUSH АА, , [JUMP (SERROR)] ; empile le nom ; 
81 
582 
BS ; Evaluation des fonctions spéciales ; 
584 | 
585 APPLYS: TNUMB  A1,, [JUMP (UDFA1)1 ; Si c'est un nombre ; 
985 CAR А1,АЗ z A2 < fonction de la fonction ; 
587 EQ АЗ, LAMBDA, [JUMP (APPLYL)1 ; c'est une lambda-explicite ; 
088 EQ. A3,' INTERNAL, [JUMP (APPLYI)] ; c'est une INTERNAL j 
589 PUSH  A2,, [CALL (EVALA1)] 
590 ; Sinon sauve la liste des arguments 4 
ES POP Al,, [JUMP (APPLY)) ; et reappelle APPLY ; 
8 
593 APPLYL: ; C'est une À explicite ; 
594 CDR A1,TST ; doit empiler 1a FUAL ; 
ESO MOVE A2,A1, [JUMP «АРРЕХР21 ; pour traiter comme une EXPR ; 
6 
597 APPL YI: ; C'est une INTERNAL ; 
598 CDR А1,А1 ; Ale (FTYP FUAL) ; 
599 CAR A1,A3 ; АЗ < FTYP ; 
600 CDR Al, A) ; Al e (FVAL) ; 
En: CAR А1,Т5Т, [JUMP (APPLIND1; vers 7'INTERNAL 4 
ED. ; Evaluation rapide de type SUBR ; 
4 
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605 APPLYI: CAR А1,А1, [RETURN] 


606 
607 AFPLY2: CDR Al, x 
608 CAR A1, A 
= CAR A2, A2. [RETURN] 
611 APPLY3: CDR A1,A2 
612 CAR A1,A1 
613 CDR A2, АЗ 
614 CAR A2,A2 
E CAR A3, A3, [RETURN] 
617 ; Application des EXPR ; 

618 ; Al < liste des valeurs ; 
619 ; FVAL empilée ; 
620 
621 APPEXP: POP A2 ; A2 « la FVAL ; 
622 STACK (@ SAVEP) ; sauve le pointeur courant ; 
623 PUSH (8 PBIND) ; fabrique le bioc de contrôle ; 
624 PUSH ”жМАВКж 
625 CAR A2,A3, [JUMP (APPEX2)1 ; АЗ < liste des variables ; 
626 APPEX1: CAR 3, A4 z А4 < la variable suivante ; 
627 CVAL Аё, Т5Т ; empile l'ancienne valeur ; 
628 PUSH АЗ ; sauve toutes Tes variables ; 
629 CAR А1,АЗ ; A3 « la nouvelle valeur ; 
630 CDR A1,A1 ; avance dans les valeurs ; 
631 SCVAL A3,A4 : force la nouvelle valeur ; 
632 XTOPST A4 ; recupère іа liste des variables ; 
633 CDR A4, АЗ ; avance dans cette liste ; 
634 APPEX2: TLIST A3,, [JUMP (АРРЕХ1)1 ; 11 en reste ; 
635 TNIL  A3,, [JUMP (CAPPEX3)] ; c'est la vraie fin ; 
636 CVAL АЗ,Т5Т ; empile l'ancienne valeur ; 
637 PUSH A3 ; empile 1e nom ; 
638 SCVAL А1,АЗ ҒА force la nouvelle CUAL ; 
639 APPEX3: PUSH Ki SAVEP) pile 1a fin du bloc de contrate ; 
E MOVE А2,А1, [JUMP (EVEXPF)] ` "Ta « 1a FVAL (cf: EVEXP) ; 

4 
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642 ; Autres fonctions interpréte ; 
643 17 T Th 
644 
645 ; (QUOTE s)  FSUBR ; 
646 ; identique à CAR ; 
647 
Ge ENTRY QUOTE, FSUBR 
49 
ES QUOTE: CAR A1,A1, [RETURN] 
651 
652 ; (LAMBDA svar el ... eN)  FSUBR ; 
653 ; (INTERNAL Ғ-іуре f-val)  FSUBR ; 
Eos ; raménent la forme elle-même ; 
656 ENTRY  LRMBDR,FSUBR,2 
657 ENTRY INTERNAL, FSUBR 
658 
659 LAMBDA: 
660 INTERNAL: 
Ge MOVE (8 FORME), A1, [RETURN] 
6 
663 ; (PROGN el ... ең)  FSUBR ; 
664 ; (EPROGN 1) 15088 ; 
665 
666 ENTRY  PROGN,FSUBR, 3 
667 ENTRY | EPROGN, 1SUBR 
= ; Permet de traiter les fonctions tail-récursives ; 
9 
670 PROGNAS:MOVE АЗ,А1 ; fonction (PROGN A3) interne ; 


671 EPROGN: 


672 PROGN: CDR A1, А2 A2 < reste des éléments ; 


` 


673 FLIST A2,, [JUMP (EVCAR)] ; c'est le dernier élément ; 
674 PUSH A2,,[CALL (ЕУСАВ21 ; sauve le reste et évaue l'élément ; 
675 РОР Al,, [JUMP (PROGN)] ; recupère Île reste et roule ; 
676 

677 ; {PROGI el ... ең)  FSUBR ; 

678 ; évalue une liste et retourne la lére valeur ; 

679 

680 ENTRY  PR0OG1,FSUBR, З 

681 

682 PROGI: CDR А1, Т5Т, [CALL (EVCAR)] ; évalue le ler élément ; 
683 XTOPST A1,, [CALL (PROGN)] ; évalue le reste ; 

684 POP A1, , [RETURN] ; retourne la lére valeur ; 
685 

686 ; (LIST el ... eN)  FSUBR ; 

687 ; (EVLIS 7)  ISUBR : | 

688 ; fabrique une liste de valeurs de manière itérative ; 
689 

690 ENTRY LiST,FSUBR 

691 ENTRY  EULIS, 1SUBR 

692 

693 EVALN: ; évalue les NSUBR ; 

694 LIST: 

695 EVLIS: FLIST A1,, [RETURN] 

696 CDR A1,IST, [CALL (CEVCAR)] 

697 POP A3 

698 XCONS  NIL,A1 

699 PUSH A1 

700 EVLIS1: FLIST A3,, [JUMP (EVLIS2)] 

701 PUSH Al 

702 CDR A3, TST 

703 CAR АЗ,А1, [CALL (CEVALA1)] 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 304 / 362 


APPENDICE F Page F-17 
| 


704 POP A3 

705 XCONS МП,А1 

706 POP A2 

707 SCDR A1,A2, [JUMP (EVLIS1)] 

s EVLIS2: POP А1, , (RETURN] 

710 ; (LIST* el ... eN) FSUBR ; 
711 ; (EULIS* 1)  1SUBR ; 

d : Fabrique une liste de valeurs de manière récursive ; 
714 ENTRY LISTS,FSUBR 

715 ENTRY  EULISS, 1SUBR 

716 

717 EVLISx: 

718 LISTx: EIST A1,, [RETURN] ; il n'y à rien à faire ; 
719 CDR A1,TST, [CALL (EVCAR)] ; évalue l'élément suivant ; 
720 XTOPST A1,, [CALL (LISTx)] ; récurse sur les CDR ; 

" CONS TST, A1, [RETURN] ; fabrique le doublet ; 
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723 ; SELF EXIT ; 

724 :-------/ 

725 | 

726 ; SELF : reapplique 1a méme fonction supposée de type EXPR! ; 
L ; traite les enveloppes de type WHERE/ESCAPE : 

255 ENTRY SELF, FSUBR, 3 

30 
731 SELF: STACK A2 ; sauve le pointeur courant ; 
732 MOVE (8 EVALCH) , АЗ ; récup la chrono actuelle ; 
733 MOVE (8 РВІМ№О) , A4 ; récup début de bloc ; 
734 SELF1: EQ A4,'0, [JUMP (SELFER)] ; erreur fatale! ; 
735 SSTACK A4 ; pointe sur nouveau bloc ; 
736 JUMPX (TSELF), TST ; aiguillage sur type de bloc ; 
737 TSELF: DATA (SELFL) ; Type 0 : bloc LAMBDA ; 
738 DATA (SELFW) ; Type 1 : bloc WHERE/ESCAPE ; 
739 DATA (SELFF) ; Type 2 : bloc LETF ; 
740 DATA (SELFS) ; Туре 3 : bloc CHRONOLOGIE ; 
741 SELFL: POP A4 ; récup la Fual empilée ; 
742 NEQ АЗ, (Е EVALCH), [UMP (SELFL1)1] ; pas même chrono ; 
743 SSTACK A2 ; revient au début du SELF : 
744 PUSH Аё, , [JUMP (EVEN: ; empiie la nouvelle Fval ; 
745 SELFL1: NEQ ТОТ,” жМАНКж, [JUMP (GELPLTOS ; dépile le bloc lambda ; 
746 SELFU: 
747 SELFF: РОР A4,, [JUMP (SELF12? : récupère le nouveau PBIND ; 
748 SELFS: POP A4 : nouveau PBIND ; 
52% РОР A3,, [JUMP (SELF1;; г nouvelle chrono ; 
791 SELFER: SSTACK A2 ; repositionune SP ; 
752 PUSH ”жМАНКж ; Fin des arguments ; 
753 PUSH ""Erreur SELF : " 
(ы PUSH А1, , [JUMP (SERROR)] 
756 ; EXIT (syn: LESCAPE) sort du dernier bloc ; 
757 ; de type LAMBDA ou WHERE/ESCAPE ; 
758 ; permet de forcer une récursion terminale ; 
i ; doit traiter les enveloppes de type WHERE/ESCAPE ; 
761 ENTRY  EXIT,FSUBR,S3 
7 ENTRY  LESCRPE,FSUBR, З 


764 LESCAPE: 
765 EXIT: MOVE (8 EVALCH),(@ SAVECH) ; sauve la chrono actuelle : 
766 ЕХІТІ: EQ "D, (@ PBIND), [JUMP (EXITER)] ; erreur Fatale ! ; 


767 SSTACK (@ PBIND) ; passe au bloc suivant ; 
768 TOPST A3 ; pique le type du bloc ; 
769 EQ A3,'0, [JUMP (EXIT3)] ; c'est un bloc LAMBDA ; 


770 EXIT2: MOVE (CEXIT1),A3, [JUMP «ОМВІМР) 1 ; délie le bloc ; 
771 EXITS: NEO (8 ЕУА(СН), (8 SAVECHD, [JUMP (EXIT2)1 ; pas bonne chrono ; 


un PUSH CUNBIND) ,, [JUMP (PROGN)] ; va exécuter Te corps : 
3 

774 EXITER: PUSH * x MARK» ; Fin des arguments ; 

775 PUSH '""Erreur EXIT : " 

776 PUSH . A1,, [JUMP (SERROR)] 
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m ; CHRONOLOGY EXITCHRONOLOGY FINDCHRONOLOGY ; 
779 ! ЕЕ ! 
722 ; La fonction CHRONOLOGY ; 
2 ENTRY CHRONOLOGY, 1SUBR 
784 CHRONOLOGY: 
785 FNIL  A1,, [JUMP (CHRON1)] 
786 MOVE (8 EVALCH), A1, [RETURN] 
ДЕДІ CHRON1: MOVE A1, (@ ЕУДІ СН), [RETURN] 
oe ; EXITCHRONOLOGY FSUBR ; 
22, ENTRY EXITCHRONOLOG, FSUBR 
793  EXITCHRONOLOG: | 
794 NOP , | [CALL (PROGN) 2 ; valeur à retourner ; 
795 MOVE (@ EVALCH) , A2 : chrono actuelle ; 
796 EXICH1: EQ '0,(8 PBIND), [JU CEXCHER)] ; erreur fatale ! ; 
797 SSTACK (@ PBIND) : pointe sur le bloc ; 
798 MOVE (EXICH2),A3, [JUMP «ОМЕР ; délie le bloc ; 
799 EXICH2: EQ А2, (@ EVALCHD, [JUMP (EXICHI)] ; ca a pas bougé ; 
GH NOP „ | [RETURN] ; c'est OK ; 
1 
802 ESCHER: PUSH ”жМАВКж ; fin des arguments ; 
803 PUSH  ""Erreur EXITCHRONCLOGY : " 
ED PUSH  A1,, [JUMP (SERROR) : 
2 ; FINDCHRONOLOGY (valeur chrono) ; 
FE ENTRY FINDCHRONOLOG, FSUBR 
810 F INDCHRONOLOG: 
811 CDR A1,TST, [CALL (EVCARD ] ; sauve le PROGN ; 
812 XTOPST A1,, [CALL (PROGND 3 z évalue le corps ; 
813 POP A2 A2 < le numéro, Al la valeur ; 
814 FINCH1: EQ '0, (8 PBIND), [JUMP (FICHER) ] ; erreur fatale 1 ; 
815 SSTACK (@ PBIND) ; pointe sur le bloc ; 
816 MOVE (FINCH2) , A3, LJUMP (UNBÍNP)] ; délie un bloc ; 
817 FINCH2: NEQ A2, (@ ЕУА СН), [JUMP (FINCH1)] ; c'est pas си1-1а ; 
de NOP , , [RETURN] ; c'est сиї-1а ; 
820.  FICHER: PUSH ` ”жМАНКж ; fin des arguments ; 
821 PUSH  ? "Erreur F INDCHRONOLOGY ; P 
822 PUSH . A1,, [JUMP (SERROR)] 
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823 ; La macro LET ; 

824 -ңҺ---т------/ 

825 

826 ; LET autre forme d'une lambda ; 

827 ; macro-génére 1a MACRO ; 

828 ; (LET () el ... eN) ; 

829 ; (LET (var val) el ... eN) ; 

БЕН ; (LET ((var val) ... (var val)) el ... eN) ; 

552 ENTRY  LET,FSUBR, 2 

834 LET: CDR A1,TST ; Sauve Te corps ; 

835 CAR А1,А1 ; АІ < (var val) ou l'autre forme ; 
836 MOVE  NIL,A2 

837 XCONS NIL,A2 ; A2 e (NIL . NIL) ; 

838 PUSH A2 z A2 < liste des variables ; 

839 MOVE NIL,A3 

840 ACONS  NIL,A3 ; АЗ < (NIL . NIL) ; 

841 PUSH АЗ ; A3 < liste des valeurs : 

842 LET2: TNIL . A1,, [JUMP (LET8)] ; Il n'y a plus de variables ; 
843 CAR A1,A4 

844 TLIST A4,, [JUMP (LET4)] ; Il y a plusieurs variables ; 
845 XCONS  NIL,A4 ; fabrique la liste des variables ; 
846 SCDR A4,A2 

847 CDR A1,A1 ; АЛ < (val) ; 

848 CAR A1, A4 z A4 = val: 

849 XCONS NIL,A4 ; A4 < (VAL) 2174121217 ; 

850 SCOR A4,A3, [JUMP (LET8)] ; Fabrique la liste des valeurs ; 
851 LET4: CDR А1, TST ; sauve Те reste des couples ; 
852 CAR A4,A1 ; Al e var ; 

853 XCONS МП,А1 ; А1 < (ver) ; 

854 SCDR A1,A2 ; fabrique liste des variables ; 
855 MOVE А1,А2 ; nouvelle fin de liste ; 

856 CDR A4, AA ; А4 < (val) ; 

857 CAR AA, A) ; Al e val ; 

858 ХСОМЅ  NIL,A1 ; Al < (val) ?1/?/?1?/? 

859 SCDR А1,АЗ ; fabrique liste des valeurs ; 
860 MOVE  A1,43 ; nouvelle Fin de liste ; 

861 POP Al,, [JUMP (LET2)] ; pour le reste des couples ; 
862 LET8: CDR TST,A3 ; Al e (val) ; 

863 CDR TST, A2 ; А2 < (Îver) ; 

864 XCONS  TST,A2 ; А2 + ((lvar) corps) ; 

865 CONS "LAMBDA, A2 ; А2 + (A (Ivar) corps) ; 

866 MOVE (8 FORME), А1 ; pour le RPLACB final ; 

867 SCAR А2,А1 ; (CAR Forme) < (à (Ivar) corps) ; 
858 SCDR A3,A1, [JUMP (EVALA1)]1 ; (CDR forme) < (va?) ; 

869 
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870 : Fonctions de définition dynamique WHERE/ESCAPE ; 


871 mmm >; 

872 

L : fabriquent un bloc de contrôle de la forme ; 

875 ; [ UNBIND : 1; 

875 ; PBIND » І 1 1; 

877 ; [ ancien PBIND T 3 

878 I [ nom de la fonction ] ; 

879 ; [ ancienne F-VAL  ] ; 

880 F [ ancien F-TYP ] 4 

881 Ик eege ; 

882 

883 ENTRY WHERE,FSUBR,2 

вва ENTRY ESCAPE, FSUBR, 2 

886 WHERE: CAR А1,А2 А2 < la nouvelle définition ; 
887 CDR A1,TST : sauve le corps à exécuter ; 
888 CAR А2. ТЭТ : sauve le nom de 1a fonction ; 
889 CDR А2,А2 z АЗ < nouvelle fonction ; 

890 CAR A2,A1 ; А1 < F-type ; 

891 TNUMB A1,, [JUMP (WHERE1)] ; forme normale ; 

892 NOP ,, [CALL (EVAL)] ; évalue la nouvelle F-val ; 
893 MOVE 7,44, [JUMP (LIHERE2)] ; F-typ < EXPR ; 

894 HHERE1: PUSH А1 : sauve le F-typ ; 

895 CDR A2,A1, [CALL (EVCAR)]  ; évalue la F-va! ; 

896 POP A4 ; A4 < le F-typ ; 

897 МНЕВЕ2: MOVE А1,АЗ ; A3 < la F-val ; 

898 POP A2 : A2 < le пот; 

893 РОР А1 ; Al < le corps ; 

900 

901 WHERE3: : Liaison dynamique avec : ; 
902 : Al < le corps à exécuter ; 
903 i A2 < le nom de la fonction ; 
904 4 АЗ + la nouvelle F-val ; 
905 $ A4 < le nouvel F-typ ; 

906 FTYP А2, TST : sauve l'ancien F-TYP ; 

907 FVAL A2,TSi : sauve l'ancienne F-VAL ; 

908 PUSH А2 : sauve le nom de la fonction ; 
909 SFTYP A4, 2 ; Force le nouveau type ; 

910 SFVAL АЗ,А : Force 1a nouvelle F-VAL ; 

911 PUSH (8 PBIND) % sauve l'adresse du bloc precedent ; 
912 PUSH ?1 : type du bloc ; 

913 STACK (8 PBIND) ; actualise le nouveau PBIND ; 
914 PUSH (UNBIND),, [JUMP (PROGN) 1 : prépare Île retour ; 

915 ; et exécute le corps ; 

916 

917 

918 ESCAPE: MOVE *10,А& ; Е-ТҮР de type ESCAPE ; 

919 CAR A1, A2 : nom de 1a fonction ; 

920 CDR А1,А1 ; corps à exécuter ; 

921 MOVE A2,A3, [JUMP (WMHERE3)] ; F-VAL ғ Те nom ; 

922 
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924 $———————— s 
925 
3 ; (LETF (varfnt s) el ... ең)  FSUBR ; 
555 ; fabriquent un bloc de contrôle de la forme ; 
930 - [ UNBIND : 1; 
931 ; PBIND > [ 2 1; 
932 J [ ancien PBIND 13 
933 I [ nom de la fonction ] ; 
934 ; Г ancienne valeur |; 
935 HM mm mm ; 
936 
5. ENTRY  LETF,FSUBR, З 
3 
939 LETF: CAR А1,А2 ; A2 < (fnt newval) 
940 CDR A2, TST ; pile < (newval) ; 
941 CDR A1,TST z pile < corps ; 
942 CAR A2, TST z pile < fnt ; 
943 CAR А2,А2 ; А2 efnt: 
944 MOVE  NIL,A1, [CALL CEVALFUD]; appel : (FNT) sans arg ; 
945 XCONS  NIL,A1 ; fabrique (oldval) ; 
946 POP A2 z А2 = fnt ; 
947 POP A3 ; A3 < corps ; 
948 XTOPST A1 ; Al < (newval) ; 
949 PUSH A2 ; pile < fnt ; 
950 PUSH АЗ, , [CALL (EVALFLD 1 ; sauve le corps ; 
951 POP A1 ; Al + 1e corps ; 
952 PUSH (8 PBIND) ; sauve le vieux PBIND ; 
953 PUSH 72 ; type du bloc ; 
954 STACK (8 PBIND) ; positionne le nouveau PBIND ; 
955 PUSH CUNBIND) ,, [JUMP (PROGN)1 ; prépare le UNBIND et ; 
EE ; exécute le corps ; 
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958 ; Fonctions de définition statique ; 
959 ;— —— > _ $ 
960 
961 
962 RDEF: PUSH Al ; sauve tout l'appel ; 
963 CAH А1,А1 : Al < le nom de la fonction ; 
964 FVAL Al,A2 
965 XCONS NIL,AZ ; fabrique (FVAL) ; 
966 FTYP ALl,A3 
967 CONS АЗ,А2 ; А2 < (FTYP FUAL) ; 
968 MOVE * INTERNAL, АЗ, [CALL CADDPROP)] 
969 : sauve l'ancienne définition ; 
970 POP А1 ; récupère tout l'appel ; 
971 ; DEF doit suivre ... ; 
972 DEF: COR А1,А2 : A2 < ((1var) corps 73 
973 CAR A1,A1 : Al < nom de 1а fonction ; 
974 SFTYP AS, AI : force le nouveau FTYP ; 
LE SEVAL A2,A1, [RETURN] : force la nouvelle FVAL ; 
976 
977 ` ; DE DF DM ; 
978 ; détruisent l'ancien cocnie C/CUS/FVAL ; 
979 
980 ENTRY  DE,FSUBR, i 
981 ENTRY  DF,FSUBR, (1 
982 ENTRY  DM,FSUBR, 1 
983 
984 DE: MOVE — '7,A3, [JUMP СЕР), ; irae 7 : EXPR : 
985 DF: MOYE 'B, AS, [JUMP (DEF): + ТҮР s 8 : FEXPR ; 
e М: МОХЕ 'S, АЗ, [JUMP (DEF)! ; РТҮР = 9 : MACRO ; 
988 ; RDE RDF RDM ; 
Gen ; sauvent l'ancien couple F'Y*P/FYAL ; 
991 ENTRY RDE,FSUBH, 1 
992 ENTRY RDF,FSUBR, 1 
993 ENTRY RDM,FSUBR, 1 
994 
995 RCZ: MOYE '7,A3, [JUMP (RDEF)1 : FTYP = 7 : EXPR ; 
996 MOVE — '8,A3, [JUMP (RDEF)1 ; FIYP = 8 : FEXPR ; 
SC MOVE 'S, АЗ, [JUMP (RDEF)1 ; ETYP = 9 : MACRO ; 
8 
999 ; (REVERT at) ; 
CH ; remet l'ancienne définition de at ; 
001 
1002 ENTRY  REUERT, 1 SUBR 
1003 
1004 REVERT; PUSH Al ; sauve le nom de là fonction ; 
1005 MOVE 'INTERNAL,A2, [CALL (GET)! ; indicateur de sauvetage ; 
1006 РОР АЗ : récupère Île nom ; 
1007 TNIL А1,, [RETURN] ; il n'y avait pas de définition ; 
1008 CAR A1,A& : A4 < l'ancien FTYP ; 
1009 S-TYP Ай,АЗ : restauré ; 
1010 CDR A1,A4 
1011 САҢ A4, Аё ; A4 < l'ancienne FUAL : 
1012 SFYAL A4,A3, [JUMP (REMPROP)] 
: restaurée et enlève l'ancienne йз? ; 
014 
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1015 

1016 

1017 

1018 

1019 

1020 

1021 ENTRY 
1022 ENTRY 
1023 ENTRY 
1024 ENTRY 
1025 

1026 СУА: CVAL 
1027 

1028 PLIST: ҒАТОМ 
1029 TNIL 
1030 TNIL 
1031 SPLIST 
1032  PLIST1: PLIST 
1033 

1034  FVAL: TNIL 
1035 SFVAL 
1036  FVAL1: FVAL 
1037 

1038  FTYPE: ТМ 
1039 SFTYP 
1040 ЕТҮРІ: FTYP 
1041 

1042 

1043 

1044 ENTRY 
1045 

1046 = SYNONYM: FVAL 
1047 SFVAL 
1048 FTYP 
1049 SFTYP 
1050 PTYP 
1051 SPTYP 
1052 


CUAL, 1 SUBR 

PLIST, 2SUBR 

FURL, 2SUBR 

FTYPE, 2SUBR 

A1,A1, [RETURN] 

А1,, [JUMP (FALSE? 

А1, , [RETURN] 

Т (РІ 1517121 
‚А 

A1,A1, [RETURN] 

A2, , [JUMP (FVAL1)] 
,А 

А1,А1, [RETURN] 

A2,, [JUMP «ҒТҮР121 

A2, A1 


A1,A1, [RETURN] 


=> 
N 


> 
N 


; (SYNONYM atl at2) ; 


SYNONYM, 2SUBR 


A2,A3 
A3, A1 
А2, АЗ 
АЗ,А1 


А2,АЗ 
АЗ,А1, CRE TURN] 


“ 


*. we w, му wa 


“. a а, 


e We We 


te me Ve tn We “Г. 


APPENDICE F 


; Fonctions d'accès aux attributs des atomes S 
Dem 


; Accès aux attributs : CVAL PLIST FVAL FTYP ; 
; Toutes ces fonction sont en бЕТ/$ЕТ A 


il faut un atome littera? 


différent de NIL ; 


pas de 2ème argument ; 
; force la nouvelle PLIST ; 
ramène la PLIST іе 


pas de 2ème arg ; 


force 1a nouvelle FVAL ; 


; ramène la CVAL courante ; 


ramène la FVAL courante ; 


pas de 2ëme arg ; 


force le nouveau "ЕТҮР ; 
ramëne le FTYP CoDrant- z 


A3 < FVAL de at2 ; 


force 1a nouvelle FAL de atl ; 


АЗ < FTYP de at2 ; 


Force le nouveau [ТҮР de а&1 


АЗ + PTYP de at2 ; 


force le nouveau PTYP de atl 
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о... Uu, — t ————-——————M 


1053 : Fonctions de contrôle ; 

1054 ;— ; 

1055 

1056 ; IF : FSUBR. La fonction conditionnelle la plus simple ; 
1057 ; et sa soeur IFN qui possède la condition inversée ; 
SCC ; permet de traiter les recursions terminales ; 

1060 ENTRY  IF,FSUBR,2 

1061 ENTRY  IFN,FSUBR,2 

1062 

1063 IF: PUSH А1, , [CALL «ЕУСАН) 1 ; evaluate the predicate ; 
1064 CDR TST, A2 

1065 CDR А2,АЗ 

1066 TNIL  A1,, [JUMP (PROGNA3)] ; else clauses ; 

een CAR A2,A1, [JUMP (EVALA1)1 ; then clause ; 

1069 IFN: PUSH  A1,, [CALL «ЕУСАВ)1 ; evaluate the predicate ; 
1070 CDR TST, A2 

1071 CDR А2,АЗ 

1072 FNIL А1,, [JUMP (PROGNA3)1  ; else clauses ; 

7 CAR A2,A1, [JUMP (EVALA1l1)1 ; then clause ; 

10 

1075 ; COND : FSUBR. La Fonction conditionnelle Ta plus connue! ; 
o : permet de traiter les recursions terminales ; 

197 

1078 ENTRY  COND,FSUBR,S 

1079 


1080 СОМ: MOVE А1,А 


2 
1081 CONDI: FLIST А2,, [RETURN] ya plus de clauses ; 


1082 CDR A2,TST ; seuve le reste des clauses ; 
1083 CAR А2,А1 ; Al < clause suivante ; 

1084 CDR A1, TST, [CALL (ЕУСАР21 ; évalue Те prédicat ; 

1085 POP A3 ; АЗ e le corps de la clause ; 
1086 POF A2 ; A2 < le reste des clauses ; 
1087 TNI A1,, [JUMP CCOND12] : je prédicat à ramener NIL ; 
1088 FNIL A3,, [JUMP (PROGNAS21 ; évaiue le corps de Ta clause ; 
1089 NOP ,» [RETURN] ; en cas de clause vide ; 

1090 

1091 ; OR AND : FSUBR, les connecteurs logiques ; 

1525 ; permet de traiter les recursions terminales ; 

109 

1094 ENTRY OR, РОВА, З 

1095 ENTRY AND, FSUBR, S 

1096 

1097 ОВ: CDR А1,А2 | 

1098 FLIST A2,, (JUMP (EVCAR)] ; le dernier élément : 

1099 PUSH A2,,[CALL (EVCAR2] 

1160 ЕМІ. Ai,, [JUMP (PRET) 

1101 POP A1,, [JUMP 50822 

1102 B 

1103 AND: FLIST A1,, {JUMP CRUE) 1 ; (AND) -> T ; 

1104  ANDI: CDR А1,А2 

1105 FLIST А2,, [JUMP (EVCAR)I : le dernier élément ; 

1106 PUSH  A2,, [CALL (EVCAPDI 

1107 TNIL  Ai,,lJUMP (РВЕТ)1 

1108 POP А1,, [JUMP CAND121 za 

1109 

1110 PRET: POP A2, , [RETURN] ; dépile et retourne ; 

1111 

1112 ; MHILE : FSUBR et UNTIL : FSUBR ; 

1113 ; ne permet évidemment pas de traiter les récursions terminales ; 
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e ; car dans un WHILE i] n'y a rien en position terminale ; 
9 

1116 ENTRY  MWHIiLE,FSUBR,2 

i ENTRY  UNTIL,FSUBR,2 


empile toute l'expression ; 


1119 WHILE: PUSH A1,, [JUMP (WHILE2)] ` 
A1 récupère l'expression entière ; 


1120  MHILE1: TOPST 


1121 CDR A1,A1, [CALL CPROGN)1 ; pour évaluer le corps ; 

1122 ЫНПЕ2: TOPST A1,,ICALL (CEVCAR)] ; évalue le test ; 

1123 FNIL А1,, [JUMP (HHILE1)1 ; il faut re-évaluer le corps ; 
H POP A2,, [RETURN] ; nettoie la pile et rentre ; 
112 


empile toute l'expression ; 


1126 UNTIL: PUSH A1,, [JUMP (UNTIL2)] 
A1 récupère l'expression entière ; 


1127  UNTIL1: TOPST 


1128 CDR A1,A1, [CALL (PROGN)] ; pour évaluer le corps ; 

1129  UNTIL2: TOPST А1, , [CALL (EVCAR)] ; évalue le test ; 

1130 TNIL A1,, [JUMP (UNTIL12J ; il faut re-évaluer le corps ; 
e POP A2, , [RETURN] ; nettoie la pile et rentre ; 
1133 z SELECTO ; 

1134 

1135 ы ENTRY  SELECTO, FSUBR, 4 

1136 


1137 RE А1,Т5Т, [CALL «ЕҮСАЗ)1 évalue Te selecteur ; 


1138 A3,, [JUMP (SELEC4) 1 ; récupére les clauses ; 

1139  SELEC2: EQ A1,A4, [JUMP (PROGNA3)1; c'est cette clause ; 

1140  SELEC3: MOVE А2,АЗ ; A3 < l'ancien reste des clauses ; 
1141  SELEC4: CDR A3,A2 ; A2 < le reste des clauses ; 

1142 CAR АЗ, АЗ ; АЗ < Та clause suivante ; 

1143 FLIST А2, , [JUMP (PROGNA3)] ; c'est la clause fausse ; 

1144 CAR A3, A4 ; A4 < le selecteur ; 

1145 CDR A3, A3 ; A3 < 1e corps de la clause ; 
1146 FLIST A4,, [JUMP (SELEC2)] ; c'est un sélecteur simple ; 

1147 PUSH Al ; sauve le sélecteur ; 

1148 PUSH A2 ; sauve 7e reste des clauses ; 
1149 PUSH A3 ; sauve le reste de la clause ; 
1150 MOVE A4,A2, [CALL (MEMBER)] ; teste le sélecteur complexe ; 
1151 POP A3 ; récupère le reste de la clause ; 
1152 POP A2 ; récupère le reste des clauses ; 
1153 XTOPST A1 ; А1 < Те sélecteur ; 

1154 TNIL  TST,, [JUMP (SELEC3)] ; c'est pas la bonne clause ; 

e NOP „ | [JUMP (PROGNA3)J ; c'est celle-là ; 
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1157 ; Fonctionnelles ; 

1158 ` Sos tent 

1159 

1160 ; (MAPC fni largl ... largN) ; 

1161 ; (MAP fnt :argl ... largN) ; 

1182 

1163 ENTRY  MRPC,NSUBR, 2 

1164 ENTRY МАР, СЕРГЕЙ 2 

1165 

1166 МАРС САВ А1, TST г empile la Fonction ; 

1167 PUSH ” xMARICK, , LJUMP (MAPC11)] ; marque de fin des liste- args ; 
1168 МАРСІ CAR Al, IST H ` empile la liste-arg suivante 
1169 MAPC11: CDR А1 А1 ; avance dans ies liste-args ; 
1170 TLIST ai, , [JUMP ЯЗАРС121 ; il en reste ; 

1171 MAPC2 STACK (8 SAVEP) : sauve le haut de 1а pile ; 
1172 MOVE  NIL,A2 : liste-arg pour APPLY ; 

1173 MOVE NIL, A3, Liz шш. 

1174 E ^ic toutes les istes sont vid 
1175 МАРСЗ: TLIST ï JUMP moo Ta iiste-arg est vide ; 

1176 CONS Se AZ, JUMP C ment simple 

1177 МАРСА MOVE Ад, АЗ vrai 

1178 CAR A4, A) ик МАРС; 

1179 CONS — AL,A2 ur APPIY ; 

1180 CDR AG, Ai ce dans Bees 

1181 МАРС5:  XTOPST A4 5 $iska-arg à sa place ; 
1182 POP A4 ouis та Tiste-arg traitée 
1183 МАРС6: TOPST Ай n sujvants у 

1184 NEG Аб,” жЖМАНКж, LILI 

1185 РОР A4 

1186 POP Al 

1187 TNIL A3,, [JUMP (FALSE?! : 

1188 е (8 SAVEP),, (CALL. (A | Та pile en ordre ; 
1183 NOP , [JUMP (MAPC2)1 

1190 

1191 МАР: САВ Al, TST ; empile la lonciion ; 

1192 PUSH 'wxMARKx,, [JUMP «МАР1122 ; marque de F liste- -args 
1193 МАРТ CAR A1,TST ; empile la liste-arg suivante 
1194 HAF11 CDR А1,А1 ; avance dans les lisíe-args ; 
1195 TLIST 1,, [JUMP (МАР121 : il en reste ; 

1196 МАР2 STACK (8 SAVEP) ; sauve le haut de là pile ; 
1187 MOVE  NIL,A2 : liste-arg pour APPLY ; 

1138 MOVE NIL, АЗ, [JUMP (MAPE?] 

1199 ; indic toutes les listes sont vides 
1200 МАРЗ: TLIST , [JUMP (МАР421 : Ja liste-arg est vide ; 

1201 CONS Pr. A2, [JUMP (MAPS?) : atome simple ; 

1202 МАР4 MOVE A4,A3 : indic vrai ; 

1203 CONS AG А2 : larg pour APPLY ; 

1204 CDR A4, AG ; avance dans liste-arg ; 

1205 ` MAPS XTOPST A4 ; remet liste-arg à sa place ; 
1206 POP Aë ; on saute la liste-arg traitée ; 
1207 MAPS TOPST A4 : liste-arg suivante ; 

1208 МЕС Ад, °жМАВКЖ, [JUMP (МАРЗ?) ; il еп reste ; 

1208 POP A4 ; enlève la margue ; 

1210 POP A1 : récupère Та FVAL ; 

1211 TNIL A2,, (JUMP CFALSED : c'est fini ; 

1212 2 (8 SAVEP), , [CALL CAPPL 1 : remet la pile en ordre ; 
1213 NOP ,LJUMP «МАР221 


Page F-27 


_______._ —————————— 


E К еы << 79 
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1214 ; Prédicats ; 

1215 --------; 

1216 

2 ; NULL NOT АТОМ NUMBP LISTP BOUNDP : ISUBR 3 
1 

1219 ENTRY NULL, 1SUBR 

1220 ENTRY NOT, 1SUBR 

1221 ENTRY ATOM, 1SUBR 

1222 ENTRY  NUMBP, 1SUBR 

1223 ENTRY LISTP,1SUBR 

1224 ENTRY  BOUNDP, 1SUBR 

1225 

1226 NULL: 

1227 NOT: TNIL = A1,, [JUMP «ТВМЕ)1 

155 MOVE  NIL,A1, [RETURN] 

1230 ATOM: FLIST А1,, [JUMP (TRUE)] 

EE MOVE  NIL,A1, [RETURN] 

1233 NUMBP: TNUMB A1,, [RETURN] 

EE MOVE  NIL,A1, [RETURN] 

1236  LISTP: TLIST А1, , [JUMP (TRUE)] 

1237 MOVE  NIL,A1, [RETURN] 

1238 

1239  BOUNDP: CVAL A1,A2 

1240 NEQ A2, "АМПЕР, [JUMP (TRUE) 

1241 MOVE  NIL,A1, [RETURN] 

1242 

1243 ; EQ NEO : 2SUBR ; 

1244 

1245 ENTRY Еа, 2SUBR 

EP ENTRY NEG, 2SUBR 

1248 EQ: EQ A1,A2, [JUMP CTRUE)] 

1500 MOVE  NIL,A1, [RETURN] 

1251 МЕС: NEQ A1,A2, [JUMP СТАЈЕ) 1 

1252 MOVE  NIL,A1, [RETURN] 

1253 

E ; EQUAL NEQUAL : 2SUBR ; 

1256 ENTRY  EQURL, 2SUBR 

j 24 ENTRY  NEQURL, 2SUBR 

1259 . NEQUAL: PUSH (NOT) 

1260 EQUAL: STACK (8 SAVEP),, [CALL (EQUAL25] 

1261 ; sauve le SP pour les retours rapides ; 

1262 MOVE — 'T,A1, [RETURN] | 

1263 EQUALI: FLIST A2,, [JUMP (NAND] 

1264 CDR A1,TST ; Sauve les 2 CDR ; 

1265 CAR А1,А1 

1266 CDR A2, TST 

1267 CAR A2,A2, [CALL (EQUAL2)1 ; récursion sur les CAR ; 

1268 POP A2 

1269 | POP. А1 

1270  EQUAL2: TLIST А1,, [JUMP (EQUAL1)] ; itération sur les CDR : 

1271 EQ A1,A2, [RETURN] 

1272 МАМ: SSTACK (@ SAVEP) ; ramène la pile a sa juste valeur ^ 

1577 FALSE: MOVE  NIL,A1, [RETURN] ; retour FAUX ; 

1275 TRUE: МОМЕ  'T,A1, [RETURN] ; retour VRAI ; 
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КЕЛИНИНЕ ER GS 


1277 ; Recherches ; 
1278 ;z—— W 
1279 

12806 ; CAR CDR C..R : ISUBR ; 
1281 

1282 ENTRY QUOTE,FSUBR 
1283 ENTRY CAR, 1SUBR 
1284 ENTRY СОЯ, 1SUBR 
1285 ENTRY  CRRR,1SUBR 
1286 ENTRY  CRDR, 1SUBR 
1287 ENTRY СОАЯ, 1SUBR 
1288 ENTRY CDDR,1SUBR 
1289 ENTRY  CRARR, 1SUBR 
1290 ENTRY  CRRDR, 1SUBR 
1291 ENTRY  CRDRR,1SUBR 
1292 ENTRY  CRDDR, 1SUBR 
1293 ENTRY  CDRRR, 1SUBR 
1294 ENTRY  CDRDR, 1SUBR 
1295 ENTRY  CDDRR, 1 SUBR 
E ENTRY  CDDDR, 1SUBR 


1298  CAAAR: CAR A1,A1 
1299 CAAR: CAR A1,A1 
1300 CAR: CAR А1,А1, [RETURN] 


1301 

1302  CAADR: CDR A1, A1 

1303 CAR A1, Al 

1304 CAR A1,A1, [RETURN] 
1305 


1306 САПАН: CAR A1,A1 


1307 CADR: CDR A1, Al 

1308 CAR A1,A1, [RETURN] 
1309 | 

1310 CADDR: CDR A1, A1 

1311 CDR A1,A1 

1312 CAR A1,A1, [RETURN] 
1313 


1314 CDAAR: САН A1,A1 


1315 (СПАН: CAR A1,A1 

1316 CDR A1,A1, [RETURN] 
1317 

1318 CDADR: CDR A1, A1 

1319 CAR A1,A1 

1320 CDR A1,A1, [RETURN] 
1321 

1322  CDDAR: CAR A1,A1 

1323 | CDR А1,А1 

1324 CDR A1,A1, [RETURN] 
1325 


1326  CDDDR: СОН A1,A1 
1327 СООН: СОВ A1,A1 
1328 CDR: CDR A1,A1, [RETURN] 


1329 | 

1330 ; (МЕМО a 1)  2SUBR ; 

1331 

1332 ENTRY MEMO, 2SUBR 

1333 

1334  MEMQ1: САН A2, АЗ ; A3 < l'élément suivant ; 
1335 EQ A3,A1, (JUMP (MEMQ2)] ; c'est le sélecteur ? ; 
1336 CDR А2,А2 


1337 МЕМО:  TLIST A2,, (JUMP (MEMQ1)] 
1338 МЕМ02: MOVE A2,A1, [RETURN] 


1a liste est vide ; 


, 
; nan : continue ; 
; ramène le dernier CDR ; 
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МЕМВ1: 


MEMBER: 
МЕМВЗ: 


LAST: 
LASTI: 


CNTH: 
NTH1: 


NTH: 


LENGTH: 
LENGTI: 


LENGTZ: 


; (MEMBER . 2)  2SUBR ; 
ENTRY MEMET, 2SUBR 

PUSH А2 

PUSH Al 

CAR  A2,A2, [CALL (EQUAL) 1 
FNIL Al,, [JUMP (MEMB3)] 
POP — Al 

CDR  TST,A2 


TLIST A2,, [JUMP (MEMB 


MOVE 2,А1, [RETI 
POP А1 
РОР А1,, CRE TURN 


: (LAST 1) ISUER ; 
; retourne Île dernier 
; 2 insiruc 


ENTRY LAST, LOUER 
FELIST А1,, [RETURN] 
CDR Al,A2 

LIST А2,, [RETURN] 

CDR — A2,À1 

LIST Ai, , [JUMP (LASTI 
MOVE A2,A1, [RETUR] 

; {NTH n 1) 25088 : 

2 (CNTH n 7) 25088 

ENTRY МТН, 2SUBR 

ENTRY CNTH,2SUBR 

PUSH  (CAR),, [JUMP (NTH)] 
COR A2,A2 

FLIST A2, [JUMP (FALSE)] 
SUB "l, 

GT A110, [JUMP (NTH1)] 
MOVE A2, A1, [RETURN] 

{LENGTH 1) 15088 ; 

ENTEY LENGTH, 1SUBR 

MOVE — '0,A2, [JUMP (LEN5T2)] 
CDR Al,A1 

AD '1,42 

TLIST A1, DUE (LENGTI 23 
MOVE А2, А1, [RETURN] 


"ua We y Ek Wi Wa Wa Ча За Ҹа 


nbiet d'une 
ons par ёієтеп T 


sauve la liste en entier ; 
sauve le test ; 

élément suivant de la liste 
c'est celui-là ; 

récupère le test ; 

suite de 1a liste ; 

la liste est vide ? ; 


I ramëne Je dernier COR ; 


récup le tesi ; 
Ge e 1а liste en entier 


iste : 


A? granmen È 
5 ; 
"aee dans da lista 
BO 


d terrier doubDi&i j 


a 7 = Š. 5, 

E A 7 ЗА $ 15 ә 2 РА 
ға 1%,” 

1 e © Fr NM 


r piis sd 
2 тыла ee жойы Т e 52. 
"béien із Geririéi doublet i 


wa Wy Wa ww uw 


KM 


pour 16 retour Zei “НҮН; 
avance dans is 10554; 
elle est terminae 
decrementa le conte 
ii Faut encore avancer 4 
ramène la liste en i'etat ; 


2 ATO ç 
# Ne o; 


eur 


raz ie compteur ; 

avance dans ia Tiste ; 

et compita 2 

ia 17526 continue ; 
retourne la taille de la 71 
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1391 ; Création d'objets ; 
1392 ғ---------------/ 
1393 

1394 ; (CONS 51 52) 2SUBR ; 
1395 ; (XCONS sl s2) 2SUBR ; 
1396 ; (NCONS s1) ISUBR ; 
1397 

1398 ENTRY CONS, 2SUBR 

1399 ENTRY  XCONS, 2SUBR 

ec ENTRY  NCONS, 1SUBR 

EE CONS: XCONS A2,A1, [RETURN] 

TE XCONS: CONS A2,A1, [RETURN] 

ee NCONS: ХСОМЅ NIL,A1, [RETURN] 
1408 ; (MCONS el ... eN) FSUBR ; 
1409 

in ENTRY | MCONS, FSUBR, З 

1412  MCONS: FLIST A1,, [RETURN] 

1413  MCONS1: CDR А1,А2 

1414 FLIST A2, , [JUMP (EVCAR)] 
1415 PUSH  A2,, [CALL (EVCAR)] 
1416 XTOPST A1,, [CALL (MCONS1)] 
ed CONS  TST,A1, [RETURN] 
1419 ; (KWOTE s)  ISUBR ; 
1420 

1421 ENTRY KWOTE, 1SUBR 

1422 

1423 KWOTE: XCONS NIL,A1 

CH CONS  *QUOTE, A1, [RETURN] 
1757 ; (REVERSE 11 12)  2SUBR ; 
1428 ENTRY  REUERSE, 2SUBR 

1429 

1430 БВЕУІ: CAR A1,A3 

1431 CDR А1,А1 

1432 CONS A3, A2 

1433  REVERSE:TLIST A1, , [JUMP (ВЕУ121 
1434 MOVE A2,A1, [RETURN] 

1435 

1436 ; (APPEND 11 12)  2SUBR ; 
1. ; (APPENDI 1 а) 2SUBR ; 
1439 ENTRY  RPPEND, 2SUBR 

esch ENTRY АРРЕМ01, 2SUBR 

1442  APPENDI:XCONS NIL,A2 

1443 

1444 APPEND: MOVE  NIL,A3 

1445 XCONS  NIL, A3 

1446 PUSH  A3,, [JUMP CAPPENS)] 
1447 = APPEN2: CAR А1,А4 

1448 XCONS  NIL,A4 

1449 SCOR A4,A3 

1450 MOVE A4,A3 

1451 CDR A1,A1 

1452 АРРЕМЗ: TLIST А1,, [JUMP (APPEN2)1 


We mn we 


, 


We me Se 


w. We te ` 


APPENDICE F 


(MCONS) = NIL ; 
evaluation du dernier ; 
evaluation du suivant ; 
ca recurse ; 


(arg) ; 
(QUOTE (arg)) ; 


Cons le 2ème argument P 
APPEND doit suivre ... 
Fabrique le ler doublet" 2 


: rajoute le nouvel élément ; 


nouvelle fin de liste ; 


: avance dans la lére liste ; 


11 en reste ; 
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1453 FLIST A2,, [JUMP (АРРЕМ421 ; s'il n'y a pas de 2ème arg ; 
1454 SCDR А2,АЗ : accroche le 2ème argument ; 
es APPENA4: CDR TST,A1, [RETURN] ; ramène le CDR de la liste empilée ; 
1457 ; (DELQ 1a) X 2SUBR ; 

1458 ; actuellement récursif. ; 

1459 

1460 ENTRY ОЕА, 2SUBR 

1461 

1462  DELQ3: CDR А1,А1 

1463 ОЕ: TNIL А1, , [RETURN] ; la liste est vide ; 

1464 CAR А1,АЗ ; АЗ < élément suivant de 1; 
1465 EQ A3,A2, [JUMP (DELQ3)) ; si c'est à enlever ; 

1466 PUSH АЗ ; sauve l'élément à CONSER ; 
1467 CDR A1,A1, [CALL (DELQ)] ; récurse sur le reste de ja liste ; 
pee CONS  TST,A1, [RETURN] ; et CONS récursif en retour ; 
1470 ; (COPY 1)  1SUBR ; 

ect ; actuellement récursif. A itérativer! ; 

1473 ENTRY COPY, 1SUBR 

1474 

1475 COPY: FLIST А1,, [RETURN] : les atomes ne changent pas ; 
1476 CDR A1,TST ; sauve le CDR ; 

1477 CAR A1,A1, [CALL (COPY)] z récurse sur les CARS ; 

1478 XTOPST A1,, [CALL (СОРУ)1 : ET SUR LES CDRs! ; 

5 CONS  TST,A1, [RETURN] ; et construit enfin le doublet ; 
1481 ; (SUBST new old e)  3SUBR ; 

1482 : Petit SUBST avec EQ ; 

1483 

1/55 ENTRY  SUBST, 3SUBR 

1486 SUBST: ҒАТОМ A3,, [JUMP (50857121 ; SUBST est parfait ; 

1487 EQ АЗ,А2, [RETURN] 

1488 MOVE A3,A1, [RETURN] 

1489  SUBSTi: PUSH А1 

1430 CDR A3, TST 

1491 CAR A3,A3, [CALL (SUBST)] 

1492 POP A3 

1493 XTOPST A1,, [CALL (SUBST)] 

1494 CONS  TST,A1, [RETURN] 

1495 

1496 ; (SUBST* new old е)  3SUBR ; 

ee? : Le gros actuellement récursif. A itérativer ; 

ee ENTRY SUBST, 3SUBR 

1 | 

1501  SUBSTx: NEU A1,A2, [JUMP (SUBSTix)] ; SUBST est parfait ; 

1502 MOVE АЗ,А1, [JUMP (COPY) ; il vaut mieux utiliser COPY ; 
1503  SUBSTix:PUSH А1 ; Sauve new ; 

1504 MOVE АЗ,А1 : change e et new ; 

1505 POP A3 ; Al < e, А2 < old, АЗ < new ; 
1506  SUBST2x:PUSH Al ; sauve e ; 

1507 PUSH А2 ; sauve old ; 

1508 PUSH  A3,, [CALL (EQUAL) J ; sauve new et test e::old ; 
1509 POP A3 ; restaure new ; 

1510 POP A2 : restaure old ; 

1511 TNIL A1,, [JUMP (SUBST2321 ; ce n'est pas le même ; 

1512 POP A1 ; enlève l'ancien e ; 

1513 MOVE A3,A1, [RETURN] : et retourne new ; 

1514  SUBST3x: POP А1 ; restaure e ; 

1515 FLIST А1,, [RETURN] ; l'arbre est terminé ; 
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1516 CDR #1 , TST ; sauve le CDR ; 

1517 CAR A1,A1, [CALL (SUBST2301; récurse sur les CARS ; 
1518 XTOPST Aï, , [CALL (SUBST2101  ; RESURSE SUR LES CDRs! z 

| CONS  TST,A1, [RETURN] ; et construit le doublet ; 
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м _ l — 


1521 ; Modification d'objets ; 

1522 ,— rr Ti 

1523 

1524 ; RPLACA RPLACD RPLACB : 2SUBR ; 

ЕГЕ z ne sont definies que sur les listes ; 
1 

1527 ENTRY  RPLACA, 2SUBR 

1528 ENTRY  RPLRCD, 2SUBR 

152 ENTRY  RPLRCB, 25088 


1531 RPLACA: SCAR 
1532  RPLACD: SCOR 


A2, A1, [RE TURN] 
A2, A1, [RETURN] 


pour le RPLACA ; 
pour le RPLACD ; 
change le CAR ; 
change Те CDR ; 


sauve le nom de la variable ; 
Al < (val var val ...) ; 


LA 
. seuve le reste et évalue la val ; 


récupère le reste de la liste ; 
récupère le nom de la variable ; 
force sa CVAL ; 

il rests encore des couples ; 

et ramène la dernière valeur ; 


force la nouvelle valeur ; 
qui est ramenee en valeur ; 


A2 < 1a variable ; 


; Al < la valeur 2 


forcée et ramenée en valeur ; 


avance dans la liste ; 
change 1e CDR ; 

A2 < nouvelle liste ; 
Al < CDR AI ; 


la liste continue ; 
ramene la nouvelle liste ; 


1533  RPLACB: CAR А2,АЗ ; 
1534 CDR A2, Аё ; 
1535 SCAR АЗ,А1 ; 
1536 SCDR A4,A1, ІВЕТУРМ! s 
1537 

1538 ; SETQ : FSUBR ; 

1539 

1540 ENTRY  SETO, FSUBR 

1541 

1542  SETQ1: MOVE А2,А1 

1543  SETQ: CAR A1,TST ; 
1544 CDR А1,А1 ; 
1545 COR A1,TST, [CALL (EVLAR)I) ; 
1546 POP A2 Н 
1547 РОР АЗ i 
1548 SCVAL А1,АЗ t 
1549 TLIST А2,, [JUMP (5ЕТ0123 : 
1550 NOP , , [RETURN] 7 
1551 

1552 ; SET : 2SUBR ; 

1553 : n'est definie que Sur les variables ; 
1554 

1555 ENTRY SET, 2SUBR 

1556 

1557 SET: SCVAL А2,А1 ; 
1558 MOVE А2,А1, [RETURN] ; 
1559 

1560 ; SETQQ : FSUBR ; 

E: ; n'est definie que sur les variables ; 
562 

1563 ENTRY SETQG, FSUBR 

1564 

1565  SETQQ: CAR А1,А2 3 
1566 CDR А1,А1 

1567 САН A1,A1 

1568. SCVAL A1,A2, [RETURN] ; 
1563 

1570 ; FREVERSE : 2SUBR ; 

1571 

1572 ENTRY  FREUERSE, 2SUBR 

1573 ; 5 intructions par doublets ; 
1574 

1575 ЕВЕУІ: CDR A1,A3 2 
1576 SCOR А2,А1 4 
1577 МОУЕ А1,А2 х 
1578 MOVE АЗ,А1 4 
1579  FREVERSE: 

1580 11167 А1,, [JUMP (FREV1)) ; 
1 MOVE A2,A1, [RETURN] : 
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122 ; FREVERSE* : 2SUBR ; 

1585 ENTRY  FREUERSE-:, 2SUBR 

EE ; optimise les transferts : 3 instructions par doublets ў 

1588  FREVIx: CDR А1,АЗ ; avance dans Ja liste ; 

1589 SCDR  A2,A1 ; change Те CDR ; 

1590 FLIST A3,, [RETURN] ; la liste est terminée ; 

1591 CDR A3, A2 ; avance dans la liste ; 

1592 SCDR А1,АЗ ; change 1e CDR ; 

1593 FLIST A2,, [JUMP (FREV9x)1 ; la liste est terminée ; 

1594 CDR А2,А1 ; avance dans 1а liste ; 

1595 SCDR АЗ,А2 ; change le СОЁ; 

1596  FREVERSEx: 

1597 TLIST А1,, [JUMP (FREV1)] ; la liste continue ; 

1598 MOVE А2,А1, [RETURN] ; retourne la nouvelle liste ; 
НЕСЕ FREV9x: MOVE A3,A1, [RETURN] ; retourne la nouvelle liste ; 
1601 ; NEXTL : FSUBR ; 

1602 

ER ENTRY NEXTL,FSUBR 

1605  NEXTL: САВ A1,A2 ; A2 « Te nom de l'atome ; 

1606 CVAL А2,АЗ ; A3 < sa C-VAL ; 

1607 CAR АЗ,А1 ; Al < le CAR de la C-VAL ; 

1608 CDR АЗ,АЗ ; АЗ < le CDr de la C-VAL ; 

IO SCVAL A3,A2, [RETURN] ; Qui devient sa nouvelle C-VAL ; 
1611 ; (NEWL at s) FSUBR ; 

1812 

EE ENTRY  NENL, FSUBR 

1615 NEWL: CAR A1,TST | ; Sauve le nom de l'atome ; 

1616 CDR. A1,A1, [CALL (EVCAR)] ; évalue l'expression ; 

1617 POP A2 ; récupère le nom de l'atome ; 
1618 CVAL А2,АЗ ; АЗ < ancienne CVAL de l'atome ; 
1619 XCONS A3,A1 ; fabrique 1a nouvelle valeur ; 
ECH SCVAL А1,А2, [RETURN] ; qui est rangée dans la СУДІ : 
1622 ; (NCONC 11 12) 2SUBR ; 

EH z (NCONCI 11 12) 2SUBR ; 

1625 ENTRY  NCONC, 2SUBR 

em ENTRY  NCONC1, 2SUBR 

TE NCONC1: XCONS NIL,A2 ; listifie le 2ème argument ; 
1630 МСОМС: TLIST A1,, [JUMP (NCONC2)] ; NCONC peut démarrer ; 

1631 MOVE A2,A1, [RETURN] ; Sinon retourne le 2ème argument ; 
1632 МСОМС2: PUSH  A1,, [JUMP (NCONC4)] ; Sauve la valeur de retour ; 
1633 МСОМСЗ: MOVE A3,A1 ; Al < CDR Al : 

1634  NCONCé: CDR A1,A3 ; avance dans la liste ler argument ; 
1635 TLIST A3,, [JUMP (NCONC3)] ; elle n'est pas terminée : 

1636 SCDR А2,А1 ; force le dernier CDR ; 

ee POP A1,, [RETURN] ; et retourne 7a liste initiale ; 
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1639 ; Fonctions sur P-LISTES ; 

1640 : ; 

1641 

1642 ; Ne supportent que les Plistes des atomes ; 

Hh ; les indicateurs sont des atomes ; 

1645 ENTRY БЕТ, 2SUBR 

1646 ENTRY  RDDPROP, 3SUBR 

1647 ENTRY РОТ, 3SUBR 

1272 | ENTRY НЕМРНОР, 2SUBR 

1650 ; GET interne teste si l'indic АЗ est présent dans la ; 
1651 4 PLIST de А1. Ramène dans A4 1e début de la PLIST de ; 
1552 Н А1 qui соттепсе à l'indicateur A3 ; 


1654 GETI: TATOM А1,, [JUMP (GETI1)] 
1655  GETIO: MOVE  NIL,A&, [RETURN] 
1656  GETI1: TNIL — A1,, [JUMP (GETIO)] 


„ c'est un bon atome littéral ; 
- sinon retourne faux ; 
ne pas toucher à NIL ; 


1657 PLIST A1,A4, [JUMP (GETI3)1 ; A4 < Ja PLIST de l'atome ; 

1658  GETI2: CAR A4,A2 ; indicateur suivant ; 

1659 EQ A3,A2, [RETURN] ; C'est tout bon ; 

1660 CDR A4, А& ; saute l'indicateur ; 

1661 CDR AG, Аё ; saute 1a valeur ; 

1662 СЕТІЗ: TLIST A4,, [JUMP (GETI2)] : la PLIST se continue ; 

een NOP » | [RETURN] ; elle est vide ; 

1665 GET: ; Al e la P-liste, A2 < l'indicateur ; 
1666 MOVE  A2,A3, [CALL (GETI)] ; recherche de l'indicateur ; 
1667 FLIST A4,, [JUMP (FALSE)] : la recherche a échouée ; 

1668 CDR A4, A4 ; pointe sur la (valeur) ; 

1554 САН A4, A1, [RETURN] ; ramène 1a valeur simple ; 

1671  ADDPROP:TNIL А1, , [RETURN] : ne pas toucher à NIL ; 

1672 TLIST А1,, [RETURN] ; ce doit être un atome littéral ; 
1673 PLIST А1,А4 : récpère l'ancienne PLIST ; 

1674 CONS A2,A4 ; (val . pl) ; 

1675 CONS A3,A4 ; (ind val . p1) ; 

127 SPLIST A4,A1, [RETURN] ; force 1a nouvelle PLIST ; 

1678 PUT: PUSH  A2,, [CALL (GETI)] ; sauve. la PVAL et rech l'indic ; 
1673 POP A : récupère 1a PUAL ; 

1680 FLIST A4,, [JUMP (CADDPROP)] ; L'indic n'etait pas present ; 
1681 CDR AG, A4 ; pointe sur la (valeur) ; 

1272 SCAR A2,A4, [RETURN] ; change la valeur ; 

1684  REMPROP:MOVE А2,АЗ, [CALL (GETI)] ; recherche de l'indicateur ; 
1685 FLIST A4,, [JUMP (FALSE)] : 1a recherche a échouée ; 

1686 CDR А4,АЗ ; АЗ + ( val indic val ...) ; 
1687 CDR A3, A3 ; АЗ + (indic val ... suivants) ; 
1688 CAR A3, A2 ; indic ; | i 
1689 SCAR A2,A4 ; (RPLACB A4 (CDDR A4)) ; 

1690 CDR A3,A2 

12, SCDR A2,A4, [RETURN] ; et retourne А1; 
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1693 ; Fonctions sur A-LISTES ; 

1694 jÚj—— T 

1695 

1696 ; (ASSQ at al) ; 

1697 

1698 ENTRY ASSA, 2SUBR 

1699 

1700  ASSQ: FLIST A2,, [JUMP (ASSQ2)] ; la liste est vide ; 

1701 MOVE А1,АЗ ; prepare le retour ; 

1702 А5501: CAR A2,A1 ; Al « ler élément ; 

1703 CAR А1,А4 ; A4 < Та variable ; 

1704 EQ A4, АЗ, [RETURN] ; c'est le bon ; 

1705 CDR A2, А2 : élément suivant ; 

1706 TLIST A2,, [JUMP CASSQ1)] ; la liste n'est pas vide ; 
АШ А5502: MOVE  NIL,A1, [RETURN] ; retourne NIL ; 

170 

1709 ; (CASSQ at a1) ; 

1710 

1711 ENTRY CASSA, 2SUBR 

1712 

1713  CASSQ1: CAR A2,A3 : Al « ler élément ; 

1714 CAR A3, A4 : A4 < la variable ; 

1715 EQ A4,A1, [JUMP (CASSG2)] ; c'est le bon ; 

1716 CDR A2, A2 ; élément suivant ; 

1717  CASSQ: TLIST A2,, [JUMP (СА550121 ; la Tíste n'est pas vide ; 
1718 MOVE — NIL,A1, [RETURN] ; retourne NIL ; 

Uu CASSQ2: CDR A3,A1, [RETURN] : retourne le CDR de l'élément ; 
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1721 : Fonctisoss numériques ; 
1722 2-----------/ 
1723 

1724 ; calcul arithmétique ; 
1725 

1726 ENTRY  RDD1,1SUBR 

1727 ENTRY  SUB1,1SUBR 

1728 ENTRY ABS, 1SUBR 

1729 ENTRY MINUS, 1 SUBR 

1730 ENTRY PLUS, 2SUBR 

1731 ENTRY DIFFER, 2SUBR 


1732 ENTRY 
1733 ENTRY 
1734 ENTRY 
1735 

1736  ADD1: ADD 
1737 

1738 5081: SUB 
1739 


1740 ABS: GE 
1741 MINUS: MOVE 


TIMES, 2SUBR 
QUO, 2SUBR 
REM, 2SUBR 


*1, A1, [RETURN] 

*1, A1, [RETURN] 

A1,'0, [RETURN] 
A2 


1742 SUB А1,А2 

s MOVE — A2, A1, [RETURN] 
10 PLUS: ADD A2,A1, [RETURN] 
Gë DIFFER: SUB A2, А1, [RETURN] 
1⁄2 TIMES: | MUL A2,A1, [RETURN] 
179, QUO: DIV A2,A1, [RETURN] 
s REM: REM A2,A1, [RETURN] 
1755 ; tests arithmétiques ; 
1756 ND 

1757 ENTRY  ZEROP, 1SUBR 
1758 | ENTRY  NEROP, 1SUBR 
1759 ENTRY  MINUSP, 1SUBR 
1760 ENTRY  GT,2SUBR 

1761 ENTRY  GE,2SUBR 

1762 ENTRY LT,2SUBR 

1763 ENTRY LE, 2SUBR 

1764 

1765  ZEROP: МЕП A1,'0, [JUMP (FALSE)] 
1766 NOP A RETURN] 

1767 

1768 МЕВОР: EQ A1,°0, [JUMP (FALSE) ] 
1769 NOP „, [RETURN] 

1770 

1771  MINUSP: LT A1,'0, [RETURN] 
1772 NOP , , LJUMP (FALSE)] 
1773 

1774 GT: GT A1, А2, [RE TURN] 
1775 NOP , , LJUMP (FALSE?) 
1776 

1777 GE: A1,A2, (RE TURN] 
1778 NOP , , LJUMP (FALSE)] 
1779 

1780 LT: LT А1,А2, [RETURN] 
175» МОР , , LJUMP (FALSE?) 
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1783 LE: LE A1, A2, [RETURN] 
1784 NOP — ,, [JUMP (FALSE)] 
1785 

1786 ; calculs logiques ; 
1787 

1788 ENTRY COMPL, 1SUBR 
1789 ENTRY  LOGRND, 2SUBR 
1790 ENTRY LOGOR, 250ВА 
1791 ENTRY  LOGXOR, 2SUBR 
1783 COMPL:  LOGXOR '-1,A1, [RETURN] 
1795 LOGAND: LOGAND A2, A1, [RETURN] 
7 . 

1797 LOGOR: LOGOR A2,A1, [RETURN] 
1799 100Х08: LOGXOR A2,A1, [RETURN] 
1800 

1801 
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1802 : Fonctions d'entrée / sorties ; 

1803 ,/,—— Y 

1804 

1805 ; Toutes les fonctions d'entrée/sortie de l'interpréte ; 
1806 ; V21 utilisent des fonctions toutes prétes pour ; 

1807 ; accéllérer 1a simulation. ; 

1808 ; Toutes ces fonctions sont masquées par les mémes ; 
1809 ; fonctions écrites en VCMC2 qui se trouvent sur les ; 
ee ; fichiers V2R (entrée) et V2P (sortie) ; 

1812 ; Routines d'initialisation des E/S ; 

i ; sur V2I elles sont inactives ; 

1913 READINI : NOP „ » [RETURN] 

1217 PRININI : NOP » | [RETURN] 

1558 ENTRY  RERD, OSUBR 

155 READ: READ А1,, [RETURN] 

EC ENTRY  RERDCH, OSUBR 

1825 ВЕАОСН: READCH А1,, [RETURN] 

1826 

1827 ; ; 

1828 ; Fonctions de sortie ; 

1829 ; ; 

1830 

1831 ENTRY PRIN,FSUBR, З 

1832 ENTRY PRINT,FSUBR,3 

1833 ENTRY  PRINCH, 1SUBR 

1574 ENTRY ТЕАРАІ , OSUBR 

1836  PRIN11: CDR A1,TST, [CALL CEVCAR)] 

1837 PRIN] °" ; un espace entre chaque elements ; 
1838 PRINI Al ; imprime l'élément ; 

1839 MOVE А1,А2 : pour ramener en valeur ; 
1840 POP А1 : recupère 1в reste des elements ; 
1841 PRIN: TLIST А1,, (JUMP (РВІМ1122 

= MOVE А2,А1, [RETURN] 

1844 PRINT: МОР „ , [CALL (PRIN)] 

1272 NOP , | LJUMP COUTLIND1 

1224 PRINCH: PRINI А1,, [RETURN] 

1849  TERPRI: NOP , | [CALL COUTLIND] 

ec MOVE  NIL,A1, [RETURN] 

1225 ; OUTLIN : vide la ligne en cours ; 

pee OUTLIN: TERPRI ,, [RETURN] ; et c'est tout ; 

2 : PROBJ : fonction d'impression interne de А1; 

1523 PROBJ: PRINI A1,, [RETURN] 

e : PROBJT : fonction d'impression interne de А1 et TERPRI ; 


1862  PROBJT: PRINI A1,, [JUMP (OUTLIND] 
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1863 ; Fonctions systéme ; 
1864 g— T 
1865 

1866 ; termine l'interprète ; 

1867 

1868 ENTRY STOP, OSUBR 

1869 

1870 STOP:  PRINI "'"Bye",,ICALL COUTLIN)] 

1871 STOP 

1872 

1873 ; PRSTACK ; 

1874 ; Visualise 1a pile ; 

1875 

10 | ENTRY  PRSTRCK, 1SUBR 

128 PRSTACK: PRSTACKA1, , [RETURN] 

1880 ; CALL : appelle un sous-programme en LM ; 

ee ; (CALL adresse A1 A2 A3 A4) ; 

1883 ENTRY  CALL, NSUBR 

1884 | i 

1885 CALL: CAR Al, TST ; empile l'adresse ; 

1886 CDR A1,A4 

1887 `  FLIST A4,, [RETURN] ; la liste est terminée ; 
1888 CAR А4,А ` | ; Al < le ler argument ; 
1889 CDR A4 , AG 

1890 FLIST Аё, , [RETURN] ; la liste est terminée ; 
1891 CAR AA, A2 ; А2 + Те 2ème argument ; 
1892 CDR A4,A4 

1893 FLIST A4,, [RETURN] ; la liste est terminée ; 
1894 CAR А2, АЗ ; АЗ < le 3ème argument ; 
1895 CDR A4, A4 

1896 CAR A4, A4, [RETURN] ; A4 < le 4ème argument ; 
ec? ; et tombe sur l'adresse empilée ; 
Een ; (MEMORY adresse < valeur >) ; 

io ENTRY MEMORY, 2SUBR 

1903 MEMORY: SINDEX A1 ; registre index = adresse ; 
1904 TLIST A2, , [JUMP (MEMR1 ) ] 

1905 MOVEX 4А2,”0 ; Force 1e mot mémoire H 
pee MEMR1: XMOVE ”0,А1, [RETURN] ; retourne 1a valeur du mot ; 
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1908 ; Données vives de l'interprète ; 

1909 ; nn Ç 

1910 

1911 

1515 : dans l'interprète ; 

1914  EVALCH: DATA 0 ; état de l'interprète : CHRONOLOGIE 
1915  EVALST: DATA NIL ; indicateur de TRACE (NIL ou T) 
1916 FORME: DATA NIL ; Ла forme à évaluer ; ` | 
1917  PBIND: DATA 0 ; pointeur sur le bloc de contrôle en pile 
1918 САУЕР: DATA 0 ; sauvetage temporaire du pointeur de pile 
1919  SAVECH: DATA 0 ; sauvetage de CHRONOLOGIE ; 
1920 

1921 | 

1922 )) 

1923 

1924 ; fin de l'interpréteur ; 

192 

1926 "OK 

1927 
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1928 ; épilogue standard ; 

1929 ; Déclaration du macro-caractère — (*0) qui permet ; 

1930 ; d'appeler l'interprète VCMC2I simulé sur VCMC2M ; 
1 


1932 (DE UeM (L) 
1933 (VCMC2 [['MOVE [QUOTE L] 'A1] , (NOP NIL NIL CALL (SINGLE221) 
1934 * (STOP) ) 


1936 (DMC "1" O CANACODE '(winterpreter) Т T) ''ANACODE) 
1938 (DMC "=" О 


1939 [QUOTE 
1940 ` (VCMC2 


1372 CL'MOVE [QUOTE (READ)] 'A1] '(NOP NIL NIL CALL (SINGLE)) '(STOP)1)1) 
1943 (DMC "i" O 

1944 [QUOTE 

1945 (VCMC2 

1375 [['MOVE [QUOTE CREAD)] 'A1] , (NOP NIL NIL CALL (SINGLE)? '(STOP)] T)]) 


1948 (DMC "ü" О 
1949 [QUOTE 


1950 (PROG2 

1951 (SETQ ?instrace T ?contrace T ?prinstack T ?stepper T) 

1952 (VCMC2 

1953 [C MOVE (QUOTE (READ)] ”А11 , (NOP NIL NIL CALL (SINGLET)) '(STOP)]) 
1222 (SETQ ?instrace NIL ?contrace NIL ?prinstack NIL ?stepper NIL 331) 


1956 (DMC "e" O 
1957 ; pour RECORD! ; 
[QUOTE 


1958 

1959 (PROG2 

1960 (SETQ ?instrace NIL ?stepper NIL) 

1961 (VCMC2 

1962 CE MOVE [QUOTE (READ)] 'A1J) ° (NOP NIL NIL CALL (SINGLET)) °’ (STOP)]) 
iE. (SETA ?instrace NIL ?stepper NIL))]) 

12: (DMC "4" О [QUOTE (VCMC2 [° (NOP NIL NIL JUMP (MAIN))1 T T D) 
1967 (DE te Gë 

1968 ; pour REC 

155 (VCMC2 oe wii NIL JUMP (МАІМ) T T T))) 

1971 (DE ESCRPE.! O 

1972 ; une IT provoque un flip/flop des traces ; 

1973 (SETQ | 

1974 ?instrace (NOT ?instrace) 

1975 ?contrace (NOT ?contrace) 

1505 ?prinstack (МОТ ағы 


1978  (PROGN 
1979 (ANACODE " (“interpreter)) 
1980 (STATUS 1 1) 


1981 (PRINT "... Interprète MISE - VCMC2 chargé. ") 
1982 (PRINT " J pour analyser l'interprète") 

1983 (PRINT " -5 pour appeler EVAL avec s") 

1984 (PRINT " üs idem mais evec les traces V2M") 
1985 (PRINT " es trace simple de RECORD ") 

1986 (PRINT " (5 idem mais avec les stats У21") 
E (PRINT " 1 pour rentrer dans l’interprète")) 
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Signification des codes associés aux numéros des Lignes : 


# définition de fonction de type DE DF DM DMC ou ENTRY 
& définition de fonction de type ESCAPE, ESCLOOP 
: définition d'étiquette dans PROG, DO, LAP ... 
, variable argument d'une fonction 

= variable affectée par SETQ ou SETQQ 

° nom apparaissant dans une S-expression quotée 

- code instruction assembleur 


D 
DELQ 
DF 
DIFFER 
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ENTRY 
ENTRY 
ENTRY 


CROSS REFERENCE 


1965 
49 
1948 


1460 
981 
1731 


Page F-45 


Page F-46 APPENDICE F 


ENTR; 382 
EPROGN ENTRY 257 

ENTRY 1245 
EQUAL ENTRY 1256 
ERROR ENTRY 80 
ESCAPE ENTRY 884 
ESCAPE. I DE 1971 
EVAL ENTRY 160 
EVLIS ENTRY 691 
EVLISx ENTRY 715 


EXI 
EXI TCHRONOLOG ENTRY 791 
F INDCHRONOL OG ENTRY 808 


FREVERSE ENTRY 1572 
FREVERSEx ENTRY 1585 
FTYPE ENTRY 1024 
FVAL ENTRY 1023 
GE ENTRY 1761 
GET ENTRY 1645 
GT ENTRY 1760 
IF ENTRY 1060 
ENTRY 1061 
INTERNAL ENTRY 657 
KWOTE ENTRY 1421 
LAMBDA ENTRY 656 
LAST ENTRY 1359 
ENTRY 1763 
LENGTH ENTRY 1383 
LESCAPE ENTRY 762 
LET ENTRY 832 
LETF ENTRY 937 
LIST ENTRY 690 
LISTx ENTRY 714 
LISTP ENTRY 1223 
LOGAND ENTRY 1789 
LOGOR ENTRY 1790 
LOGXOR ENTRY 1791 
ENTRY 1762 
MAP ENTRY 1164 
MAPC ENTRY 1163 
MCONS ENTRY 1410 
MEMBER ENTRY 1342 
MEMORY ENTRY 1901 
MEMQ ENTRY 1332 
MINUS ENTRY 1729 
MINUSP ENTRY 1759 
NCONC ENTRY 1625 
NCONC1 ENTRY 1626 
NCONS ENTRY 1400 
NEQ ENTRY 1246 
NEQUAL ENTRY 1257 
NEROP ENTRY 1758 
МЕМ. ENTRY 1613 
NEXTL ENTRY 1603 
NOT ENTRY 1220 
NTH ENTRY 1371 
NULL ENTRY 1219 
NUMBP ENTRY 1222 
ENTRY 1094 
PLIST ENTRY 1022 
PLUS ENTRY 1730 
PRIN ENTRY 1831 
PRINCH ENTRY 1833 
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RPLACD 
SELECTQ 


SETQQ 


ғо Nr 
e 
o 
C 
œ 
D 


o 
N 
o 
C 
œ 
D 


3SUBR 
?contrace 
?instrace 
?prinstack 
aud 


=> һә (O СО ~У О 
со 


126 
181 
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127 
183 


128 
205 


tį 

Y 

X 
“М 


163 
210 


745! 


1222 
1291 
1726 


1342 
1529 
1731 
1901 


164 
223 


Page F-48 APPENDICE F 


12 Al 71 83 84 86 87 87 88 


13 A2 72 75 76 130 162 165 206 
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946 


1035 1038 


949 


APPENDICE F 


14 


15 


A3 


A4 


APPLY1 
APPLY2 


621: 
5494 554: 591 1188 1212 
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36  APPLYS 
37  APPLYi 
38  APPLYL 
39  APPLYN 
40  APPLYS 


o3 CAR 


54  CASSQ 
55 СА5501 
56 CASSQ2 
57  CDAAR 
58  CDADR 
59 СПАН 
60 СОПАН 
61 CDDDR 
62 CDDR 
63 CDR 


64 CHRONI 
65 CHRONOLOGY 


1417- 


87 
149 
228 
486 
811 
1099 
1267 
1518 
1885: 
179- 
553- 
626- 
890- 
1083- 
1298- 
1319- 
1533- 
1703- 


721- 
1424- 


288- 
516- 
682- 
887- 
1071- 
1180- 
1318- 
1364- 
1516- 
1634- 
1836- 


865- 
1432- 


92 
144 
301 
589 
892 
4 
1415 


1615 


? 1841? 


286 
559- 
650- 


939- 


1144. 1 
5. 1300: | 
Za 1834» 
- 1565- 15% 


1714- 


306- 
552- 
696- 
889- 
1082- 
1194- 
1320- 
1375- 
1534- 
1680- 
1886- 


967- 
1468- 


309- 
594- 
702- 
895- 
1084- 
12904- 
1323- 
1386- 
1544- 
1661- 
1889- 


1176- 
1479- 


APPENDICE F 


311- 
598- 
719- 
920- 
1097- 
1264- 
1324- 
1413- 
1545- 
1668- 
1892- 


1179- 
1494- 
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336- 
600- 
811- 
940- 
1104- 
1266- 
1326- 
1431- 
1566- 
1681- 
1895- 


1201- 
1519- 


343- 
607- 
834- 
941- 
1121- 
12848 
1327- 


1451- 


1575- 
1686- 


1203- 
1674- 


1896- 


13984 
1675- 


380- 
613- 
851- . 
1010- 

1137- 
1307- 


: 1328- 


1462- 
1591- 
1690- 


1402: 


APPENDICE F Page F-51 


72 COPY 147: ` 1475: 1477 1478 1502 

73 CVAL m F 323- 395- 512- 627- 636- 1021# 1026: 1026- 1239- 
- 1618- 

74 DATA 185- :86- 187- 254- 255- 256- 270- 271- 272- 273- 274- 


275- 276- 277- 278- 279- 280- 412- 413- 414- 415- 453- 
454- 455- 456- 565- 566- 567- 568- 569- 570- 571- 572- 
573- 574- 575- 737- 738- 739- 740- 1914- 1915- 1916- 1917- 


1918- 1919- 
75 DE 980# 984: 1932 1967 1971 
76 DEF 972: 3984 985 386 
77 DELQ 1460# 1463: 1467 
78 DELQ3 1462: 1465 
79 44 981# 985 
80 DIFFER 1731# 1747 
81 DISPT 184- 252- 
2 DIV 1751- 
83 DM 982# 986: 
84 DMC 49 1936 1938 1943 1948 1956 1965 
85 ENTRY 80 136 160 216 549 550 648 656 657 666 667 


680 690 691 714 715 729 761 762 782 791 808 

832 883 884 537 980 981 982 991 992 993 1002 
1021 1022 1023 1024 1944 1060 1061 1078 1094 1095 1116 
1117 1135 1163 1164 1219 1220 1221 1222 1223 1224 1245 
1246 1256 1257 1282 1283 1284 1285 1286 1287 1288 1289 
1290 1291 1292 1293 1294 1295 1296 1332 1342 1359 1371 
1372 1383 1398 132% 1400 1410 1421 1428 1439 1440 1460 
1473 1484 1499 1527 1528 1529 1540 1555 1563 1572 1585 
1603 1613 1625 1525 1645 1646 1647 1648 1698 1711 1726 
1727 1728 1729 1730 1731 1732 1733 1734 1757 1758 1759 
1760 1761 1762 1763 1788 1789 1790 1791 1819 1823 1831 
1832 1833 1834 1868 1876 1883 1901 


86 EPROGN 6670 671: 
EQ 527- 530- 587- 588- 734- 766- 
769- 796- 799- 814- 1139- 1245# 1248: 1248- 1271- 1335- 1465- 
1487- 1659- 1704- 1715- 1768- 


88 EQUAL 1256# 1260: 1346 1508 

89 EQUALI 1263: 1270 

90 EQUAL2 1260 1267 1270: 

91 ЕВЕЅС 527 538: 

92  ERRO2 86: 89 

93 ERRO& 85 88: 

94 ERROR 7177 807 82: 

95 ESCAPE 8844 918: 

96 ESCAPE.I 19717 

97 EVAL 1604 162: 225 892 

98 EVALO 271 332: 

99 EVALI 177: 272 

100 EVAL2 273 335: 

101 EVALS3 274 342: Am 

102 EVALAI 113 146 180: 301 502 589 703 868 1067 1073 

103 EVALAN 166 173 182: 

104 EVALAT 185 191: 

105 EVALCH 105 128 164 165 168 223 238 242 493 732 742 
765 771 786 787 795 799 817 1914: 

108 EVALF 276 351: 

107 EVALFAT 254 258: 

108 EVALFLI 256 295: 

109 EVALFNB 255 284: | 

110 EVALFU 251: 303 325 944 950 

111 EVALI 298 308: 

112 EVALIN 260: 312 

113 EVALIS 187 248: 

114 EVALL 297 305: 
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115 EVALL2 162 
116 EVALL3 165 
117 EVALN 275 
118 EVALNI 288: 
119 EVALN2 287 
120 EVALNB 186 
121 EVALST 104 
122 EVALT 181 
123 EVCAR 178: 
696 
1122 
124 EVESC 280 
125 EVESCI 526: 
126 EVESC3 530 
127 EVESC4 532 
128 EVEXP 277 
129 ЕУЕХР1 380: 
130 EVEXP2 375 
131 EVEXP3 387 
132 EVEXP4 395: 
133 EVEXPS 394 
134 EVEXP6 &08: 
135 EVEXP9 418 
136 EVEXPF 435: 
137 EVEXPG 441: 
138 EVEXPN 408 
139 EVFEX2 511: 
140 EVFEXS 510 
141 EVFEXB 502 
142 EVFEXP 278 
143 EVLIS 388 
144 EVLISx— 7154 
145 EVLIS1 700: 
146 EVLIS2 700 
147 EVMAC 279 
148 EXCHER 796 
149 ЕХІСНІ 796: 
150 EXICH2 798 
151 EXIT 7618 
152 ЕХІТІ 766: 
153 EXIT2 770: 
154 ЕХІТЗ 769 
155 EXITCHRONOLOG 94 
156 EXITER 766 
157 FALSE 1028 
1778 
158 FATOM 555- 
159 FICHER 814 
160 FINCH1 814: 
161 FINCH2 816 
162 FINDCHRONOLOG 8084 
163 FLIST 289- 
1230- 
1593- 
164 FNIL 181- 
165 FORME 76 
166 FREV1 1575 
167 FREV1* 1588: 
168 FREVSx 1593 
169 FREVERSE 1572# 
170 FREVERSEx 15854 
171 FSUBR Gen 


574 


793: 


1211 
1784 
1486- 


695- 
1361- 
1680- 
1072- 
127 
1597 


657 
883 


744 


432: 


1273: 


700- 
1363- 
1685- 
1088- 
183 


666 
884 


169 


343 
1063 
1415 


181 


345 
1069 
1545 


1376 1667 


718- 1081- 
1376- 1412- 
1700- 1887- 
1100- 1123- 
500 661 


680 
937 


690 
980 


APPENDICE F 


deeg 


205 


346 
1084 
1616 


1685 


1098- 
1414- 
1890- 
1347- 
866 


714 
981 
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210 


381 
1098 
1836 


673 
1099 


1765 1768 


1103- 1105- 
1453- 1475- 
1893- 


1916: 


78: 
93: 


729 
982 


67: 
13 


1915: 
682 


05 1106 


1775 


1143- 1146- 
1515- 1590- 


791 
993 


762 
932 


1060 1061 1078 1094 1095 1116 1117 1135 1282 1410 1540 
1563 1603 1613 1831 1832 


172 FTYP 259- 557- 906- 966- 1040- 1048- 

173 FTYP1 1038 1040: 

174 FTYPE 10248 1038: F 53 
175 FVAL 258- 556- 907- 964- 10234 1034: 1036- 1046- a 
176 FVAL1 1034 1036: 

177 GE 1740- 17618 1777: 1777- 

178 GET 1005 16454 1665 

179 GETI 1654: 1666 1678 1684 

180 GETIO 1655: 1656 

181 СЕТІ1 1654 1656: 

182 GETI2 1658: 1662 

183 GETIS 1657 1682: 

184 GT 1378- 17604 1774: 1774- 

185 IF 10604 1063 

186 IFN 10614 1069: 

187 INTERNAL 298° 588° 65748 660: 968° 1005” 

188 ІТ 1147 147” 

189 ІТ5ОЕТ 76 130 208 236: 

190 JUMP 74 75 76 85 89 94 132 162 165 166 173 


191 JUMPX 261- 410- 451- 560- 736- 
192 KWOTE 1421# 1423: 

193 L 44, 44 1932, 1933 
194 LAMBDA 297° 587" 656й 659: 865” 
195 LAST 13594 1361: 

196 | А5Т1 1362: 1365 

197 L 286- 17634 1783: 1783- 
198 LENGT1 1386: 1388 

199 LENGT2 1385 1388: 

200 LENGTH 13834 1385 

201 LESCAPE 7628 764: 

202 LET 8328 834: 

203 LET2 842: 861 

204 LET& 844 851 

205 LET8 842 850 862: 

206 LETF 937# 939: 

207 LIST 690# 694: 

208 LIST 714# 718: 720 

209 LISTP 12230 1236: 

210 LOGAND 1789# 1795: 1795- 

211 LOGOR 17904 1797: 1797- 

212 LOGXOR 17914 1793- 1799: 1799- 
213 LT 17620 1771- 1780: 1780- 
214 MAIN 122: 1965” 1969” 
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215 MAIN1 128; 
216 MAP 1164 
217 МАР1 1193 
218 МАР11 1192 
219 MAP2 1196 
220 МАРЗ 1200 
221 MAP4 1200 
222 MAPS 1201 
223 MAP6 1198 
224 MAPC 1153H 
225 МАРС1 1168 
226 МАРС11 1167 
227 MAPC2 1171 
228 МАРСЗ 1175 
229 MAPCA 1175 
230 МАРС5 1176 
231 MAPCG 1173 
232 MCONS 14105 
233 MCONS1 1413: 
234 MEMB1 1344: 
235 MEMB3 1347 
236 MEMBER 1150 
237 MEMORY 1901# 
238 MEMQ 13324 
239 MEMQ1 1334: 
240 MEMQ2 1335 
241 MEMR1 1904 
242 MERROR 63: 
243 MINUS 17294 
244 MINUSP 17594 
245 MOVE 71- 
129- 
225- 
500- 
732- 
855- 
986- 
1197- 
1273- 
1488- 
1631- 
1842- 
246 MOVEX 1905- 
247 MUL 1749- 
248 NAN 1263 
243 NCONC 162548 
290 NCONCI 16264 
251 NCONC2 1630 
252 МСОМСЗ 1633 
253 NCONC4 1632 
254 NCONS 14004 
255 NEQ 192- 
1240- 
296 NEQUAL 12574 
297 NEROP 17584 
258 МЕМ. 16134 
259 NEXTL 1650342 
260 NOP 49" 
146- 
892- 
1778- 
1953” 
261 NOT 1220# 


104- 
169- 
302- 
531- 
770- 
893- 
997- 
1228- 
1351- 
1513- 
1666- 
1941” 


465- 


: 1251- 


107- 
287- 
1189- 
1815- 
1969” 
1974 


105- 
183- 
325- 
532- 
786- 
897- 
1005- 
1231- 
1366- 
1542- 
1684- 
1946” 


534- 
1501- 


118- 
330- 
1213- 
1817- 


1975 


742- 
1765- 


124- 
332- 
1550- 
1844- 


1976 


APPENDICE F 


iüS- 123- 
205- 208- 
347-  401- 
598- 595- 
795- 798- 
921- 944- 
1140- 1150- 
1237- 1241- 
1385- 1389- 
1577- 1578- 
1707-- 1718- 


745- 771- 


125- 132- 
351- 535- 
1663- 1786- 
1845- 1849- 
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126- 
210- 
449- 
540- 
816- 
968- 
1172- 
1249- 
1434- 
1581 - 
1741- 


817- 


140- 
794- 

1769- 
1933” 


1184- 


144- 
800- 
1772- 
1941” 


1208- 


APPENC ï CE 


PBiNC 


PLIST 
PLISTI 
PLUS 
POP 


PRININI 
PRINT 
PROBJ 
PROBJT 
PROGI1 
PROG2 
PROGN 


PROGNAS3 
PRSTACK 
PRSTAT 
PTYP 
PUSH 


301 READC 


302 
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REASINI 


F 


590 1163 1164 
1374 1377: 

1378 

1226: 

1233: 

1097: 1101 

84 0 140 
126 170 172 
509 527 528 
911 913 952 
1028: 1032- 1657- 
1032: 

1745: . 

88- 92- 113- 
382- 398- 399- 
464- 466- 472- 
501- 504- 525- 
708- 741- 747- 
947- 951- 970- 
1138- 1151- 1152- 
1348- 1352- 1353- 
1617- 1637- 167%- 
448 566 572 
1107 1110: | 
1841: 1844 

1841 

1847: 

85- 91- 118- 
1862- 1870- 

125 1817: 

1844: 1981 1982 
220 227 1858: 
111 116 145 
682: 

1959 

441 524  J 6664 
1121 1128 1978 
1066 1072 1088 
93- | 18764 1878: 
131- 

163- 164- 167- 
237- 238- 239- 
381- 388- 390- 
502- 509- 510- 
580- 589- 623- 
752- 753- 754- 
821- 822- 838- 
952- 953- 955- 
1147- 1148- 1149- 
1466- 1489- 1503- 
1678: 

1751: 

650: 1282# 1424” 
1962 1965 

995: 

995 996 997 
18194 1821: 1821- 
1825: 1825- 

124 1815: 


1883 


116- 


1983 
149 


672: 


1139 
1878- 


168- 
240- 
434- 
514- 
624- 
772- 


841- 


962- 
1167- 
1506 


1933 


194: 


1505- 


141- 


1984 
221 


675 
1143 


170- 
243- 
435- 
518- 
628- 
774- 
894- 
1004- 
1192- 
1507- 


1939 


1946 


1508- 


1941 


1953 


Page 


1206- 
1510- 


149- 


1985 
1862: 


772 


173- 
300- 
467- 
539- 
639- 
776- 
911- 
1069- 
1344- 
1632- 


1944 


1962 


Е-55 


1837- 


1987 


794 


194- 
326- 
476- 
940- 
674- 
802- 
912- 
1099- 
1345- 
1678- 


1946 


1514- 


1838- 


812 


195- 
327- 
483- 
541- 
699- 
803- 
914- 
1106- 
1374- 


1949 


1847- 


914 


219- 
328- 
484- 
5/8- 
701- 
804- 
949- ` 
1119- 
1415- 


1953 


Page F-56 


__ í'/_> _€_wVcc'ctssS AA A SAA AA A NTEMNDICE F 


303 REM 
304 REMPROP 
305 RETURN 


306 REV1 
REVERSE 
REVERT 
REVIVE 
RPLACA 
RPLACB 
RPLACD 
RUNVCMC2 
SAVECH 


SCVAL 


SELEC2 
SELEC3 
SELEC4 
SELECTQ 
SELF 
SELF1 
SELFER 
SELFF 
SELFL 
SELFL1 
SELFS 
SELFW 
SERRO1 
SERRO2 
SERROR 
SET 
SETQ 

SE TQ1 
SE TQQ 
SFTYP 
SFVAL 
SILENCE 
SINDEX 
SINGLE 
SINGLET 
SPLIST 
SPTYP 
SSTACK 


STACK 
STATUS 


17348 1753: 
1012 18485 
151 


749 


745 


328 


: 1991 


974- 
975- 
139- 


1941” 
1962” 


420- 
1212- 
394- 


150- 


541 
1954 
1009- 
1012- 
148- 


1946” 


429- 
1272- 
407- 


580 
1960 


1039- 
1035- 


433- 
437- 


1536 
1637 


1887 


1188 
868- 
631- 


754 
1963 


1049- 
1047- 


528- 
508- 


APPENDICE F 


1196 
1449- 
638- 


776 
1973 


735- 
622- 


http://www.artinfo-musinfo.org Le modèle VLISP, avril 1980, page 344 / 362 


1212 
1454- 
1548- 


804 


743- 
731- 


1260 


1532- 1536- 
1557- 1568- 


822 


751- 
913- 


332 

615 

818 

1110 
1262 
1328 
1406 
1488 
1581 
1669 
1738 
1774 
1825 
1906 


1272 


757- 
954- 


1918: 
1576- 
1608- 


797- 
117i- 


APPENDICE F 


Page F-57 


eege 


349 STEPEVAL 


0 STOP 


SYNONYM 
T 


TAPPLY 
TATOM 
TERPRI 
TEVAL1 
TEVAL2 
TEVALS 
TEVEX 
TEVEXL 
TEVEXM 
TIMES 
TLIST 


TNIL 
TNUMB 
TOPST 


TRUE 
TSELF 
TST 


ТОМВО1 
UDF A 
UDF A1 
UDFE 
UDFER 
UNBDF 
UNBDL 
UNBDL 1 
UNBDL2 
UNBDS 
0 UNBDH 
391 UNBIND 
392 UNBINP 
393 UNTIL 
394 UNTIL1 
395 UNTIL2 
396 V2M 
397 VCMC2 
398 WHERE 
399 WHERE1 
400 WHERE2 


TOPLEVEL 


218: 
1227 1868# 1870: 1871- 1934” 1941' 1946” 


1738- 


: 1491 


1518 


` 1262” 


1965 


: 1854- 


408 
932 


1945 


1742- 1747- 


1493 


1936 
1969” 


1275” 
1969' 


844- 
1433- 
1841- 
842- 
1187- 


772 
738 


448: 
770 


1952 1961 


914 


1936 
1969” 


1946 


1170- 
1452- 
1904- 
1007- 
1211- 


1175- 
1549- 


1029- 
1227- 


1120- 
1251 


336 
474 
719 
8883 
1154 
1476 


955 
816 


1965 1969 
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1951 1951 


1200- 
1597- 


1034- 
1511- 


1195- 
1580- 


1030- 
1463- 
1122- 
1275: 
343 


479 
721 


1127- 


349 
512 
736 
906 3907 
1166 1168 
1479 1490 


1953” 


1951 


1236- 
1630- 


1038- 
1656- 


1129- 


380 
556 
745 
940 
1191 
1494 


1962” 


1951 


Page F-58 


WHERES 
WHILE 
WHILE1 
WHILE? 
XCONS 


XMOYE 
XTOPST 


ZEROP 
~UNDEF 
~interpreter 


APPENDICE F 


^A N GAR DA 7 Em OS O AE 


321 


58 1119: 
: 1123 


1122: 


598- 705- 


837- 840- 845- 849- 853- 858- 864- 


945- 


1399# 1402- 1404: 1406- 1423- 1442- 1445- 1448- 1619- 1628- 


344- 346- 
948 - 
1765: 
1240” 


1936" 1379” 


1153- 


383- 389- 396- 402- 482- 632- 683- 


1181- 1205- 1416- 1478- 1493- 1518- 
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720- 


| APPEND І CE G | 
59 oplevel 


жжжжж А) Les types simples de fonctions 
= ЖЖЖЖЖ A) les types simples de fonctions 
Nb d'instructions exécutées : 65 
Nb de CONS réalisés : 
Taitte maximum de la pile : 8 


topleve 
? c x 10) 


Nb d' instructions exécutées : 69 
Nb de CONS réalisés : 
Taille maximum de la pile  : 12 


toplevel 
4 (DE F001 OO (PRINT 'X '= Ai) 
F001 


Nb d’ instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


toplevel 
? (F001 20) 
A 20 


20 
Nb а” instructions exécutées : 170 
Nb de CONS réalisés : 0 

Taille maximum de la pile  : 20 


toplevel 

? K 

Nb d’instructions exécutées : 51 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplev 
? (DE 2002 X (PRINT "X Te X)) 
FO02 


Nb d' instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 
бор18У5 

(F002 d “В °С) 

X (A B C) 
= (А B C) 
Nb d’ instructions exécutées : 218 
Nb de CONS réalisés : 3 
Taille maximum de la pile : 20 


to 
? (US Bn: (X1 X2 . ХЗ) (PRINT X1 X2 X3)) 
Е003 


Nb d’ instructions exécutées : 61 
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Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 
308 leve 

FOUS e 2 3 4) 

1 2 (3 4) 
Nb d'instructions exécutées : 215 
Nb de CONS réalisés : 2 
Taille maximum de la pile : 24 


top 
E SE (L) CIF (LISTP L) (CONS (CAR L) (F004 (CDR 1222 (PRSTACK '100) 


Nb d'instructions exécutées : 61 
Nb io CONS réalisés : 0 
Taille maximum de la pile 9 


top 
? Чул dÉ B)) 
ds =! Al JUMP (PROGN)) : 


sl : 

(СІ) CIF&. ) 

N (MOVE A1 A2) : CH ue 
CB) 

*MARK* 


(0 € & & ) ...) 

p NE Al A2) : 

CONS : 

pore : 

С CL) CIF & ...) ) 

` (MOVE Al A2) : Â ...) 


(AB) 
ЖМАВКж 


(0 (& &) ...) 

SET А1 A2) : 

CONS : 

o eon : 

(CLOCIF& ses). 2 

` (SCVAL Al 717) : UNBIND : ...) 


CL 2...) 
XMARK x 


(SCVAL Al 'IT) : 
UNBIND : 


3 
0 
0 
NIL 
(PRSTAT NIL NIL) : 
( € STOP ) D 
жЕО5ж 
= (А В) 
Nb d’instructions exécutées : 299 


Nb de CONS réalisés : 
Taille maximum de la pile : 42 
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nn———————————————OÓ aa ент (0 CLI CS "OD T "—— —— —— — —À— ! Á—— —— i!ÀÀ— = 


tople 
? ( КОЕ "Ben (L) «PRINT L)) 
= FF00 


Nb d'instructions exécutées : БІ 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel 
? (FFOO A (B C) D) 
(A (B C) D) 
= (A (B C) D) 
Nb d' instructions E idee : 116 


Nb de CONS réalisés : 0 
Taille maximum de la pile : 20 


topleve 
? ROM M MM MCONS 515 d (NULL (CDDR L)) (CADR L) ['CONS SS L) (CONS ? 


MMCONS (CDDR L5) 
MMCONS | 
Nb d'instructions exécutées : B. 


Nb de CONS réalisés : 
Taille maximum de la pile : 9 


toplevel 
? bw ded "A 'B °С) 
(A C) 


Nb Eege exécutées : 616 

Nb de CONS réalisés : 10 

Taille maximum de la pile : 28 

to 

? ? Kë 2ER0P (L) (RPLACB L DE (CADR L) 015) 
Nb d'instructions exécutées : 61 

Nb de CONS réalisés : 0 

Taille maximum de la pile : 9 

toplev 

? ОЕ PACT (N) (IF (ZEROP ND 1 (TIMES N (FACT (SUB1 N))))) 
Nb d'instructions exécutées : 61 

Nb de CONS réalisés : 0 

Taille maximum de la pile : 9 

toplevel 

? A 5) 

Nb d'instructions exécutées : 983 

Nb de CONS réalisés : 3 

Taille maximum de la pile  : 77 


59 REGA "ER CT) 

= ((ND (IF (EQ N 0) 1 «TIMES N (FACT (SUBI N)))))} 
Nb а” instructions exécutées : 79 

Nb de CONS réalisés : 0 
Taille maximum de la pile  : 12 


toplevel 
? (РАСТ 5) 
120 


Nb d' instructions exécutées : 848 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 77 


toplevel 
2 "жжжжж В) Les traitements particuliers 
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eegend 


= жжжжж B) les tra: ments ER 
Мо d'instructions exócutées 57 

Nb de CONS réalisés : 0 

Taiile maximum de la pile  : 9 


SSPGE 
POE (L) СЕ (NULL. NIL (PRINT (CAR L)) (NPR1 (CDR L)))) 


Nb d'instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


Nb d'instructions exécutées : 145 
Nb de CONS réalisés : Ü 
Taille maximum de ta pile к 


ор 
PERI ва» 


= NIL 

Nb d'instructions exécutées : 2 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 2 


50046 
? (АРАТ "a 2)) 


Nb а” instructions exécutées : 42 
Nb de CONS réalisés e 0 
Taille maximum de la pile 2 


toplevel 
? 2 "41 2 32 
2 
3 
= NIL 
Nb d'instructions exécutées : 566 


Nb de CONS réalisés : 
Taille maximum de la pile : 22 


topi 
2 (NPRI “а 234) 


= GINA 
= 


Nb d'instructions exécutées : 704 
Nb de CONS réalisés : 0 
Taitle maximum de la pile : 22 


29 Le 
ЗЕ (ені (L) CIF (NULL L) NIL (PRINT (CAR L)) (CPR2 (CDR L)))) 


Nb d'instructions exécutées : D 


Nb de CONS réalisés t 
Taille maximum de la pile : 9 


toplevel 
? (DE CPR2 (L) (CPR3 L)) 
CPR2 
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Nb d'instructions -ссиіёеѕ : 
Nb de CONS réalisés : 
Taille maximum de ia pile  : 


tople 

? (DE "Bis (L) «CPR1 i?) 

= СРЕЗ 

Nb d'instructions exécutées 
Nb de CONS réalisés 

Taille maximum de la pile 


зе ес ee 


top ву; 

(CPR1) 
= NIL 
Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


tople 
? (ОРНІ (AD) 


= NIL 

Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Tailte maximum de la pile : 


toplev 
? (CPRI (А B)) 


B 
= NIL 
Nb d’ instructions exécutées 
Nb de CONS réalisés 
Taille maximum de la pile 


ve ee eg 


topleve 
? Ro dÉi B C)) 


B 
C 
= NIL 
Nb d natructione exécutées 


Nb de CONS réalisés 
Taille maximum de la pile : 


tople 
? (PRI (А B C D)) 


оссо» 


= NIL 

Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


toplevel 
? IE ARE FIN (PRIN 1) (PRINT 


Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile : 


toplevel 
? (ESCAPE FIN (PRIN 1) (PRINT 


Page 6-5 


434 
0 
38 


680 
0 
38 


: 926 
: 0 
38 


1172 


2) (FIN 3) (PRINT 4)) 
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3 


Nb d'instructions exécutées : 165 
Nb de CONS réalisés : Ü 
Taille maximum de la pile 20 


toplevel 
? FO O (L) (ESCAPE BID (IF (NULL L) NIL (PRINT (CAR L)) «ЕРО (CDR L))))) 


Nb d'instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel 

2 (EFO) 

= NIL 

Nb d'instructions exécutées : 180 
Nb de CONS réalisés _. : 
Taille maximum de la pile : 25 


toplevel 

? (ЕҒО ? (A)) 

= NIL 

Nb d’instructions exécutées : 364 


Nb de CONS réalisés е 
Taille maximum de la pile  : 31 


toplevel 
? (UH * (A B)) 


B 
= NIL 
Nb d'instructions exécutées : 548 
Nb de CONS réalisés 2 0 
Taille maximum de ta pile : 37 
ҳоріеу 

(ЕРОС * (A BC» 

A 

B 

C 
= NIL 
Nb d'instructions exécutées : 738 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 43 
toplev 
? ЕРО" di B C Di) 

B 

C 

D 
= NIL 
Nb d'instructions exécutées : 934 
Nb de CONS réalisés : 0 


Taille maximum de la pile : 49 


? (DE S SEL F1 (L) CIF (NULL L) NIL (PRINT (CAR L)) (SELF (CDR 12290 


Nb d'instructions exécutées : 81 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


S0PGE 
езін '(1 2) 
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2 
= NIL 
Nb а” instructions exécutées : 450 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 22 
tople 
? ës ” (1 2 3)) 
2 
3 
= NIL 
Nb d'instructions exécutées : 599 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 22 
to | 
CE S r2 (L) «(ESCAPE BID (IF «NULL L) NIL (PRINT (CAR L)) (SELF (CDR L?) 
= SELF2 
Nb d'instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 
toplevel 
? D ” (1 2)) 
2 
= NIL 
Nb d'instructions exécutées : 582 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 37 
topleve 
? VE '(12 3)) 
2 
3 
x NIL | 
Nb d'instructions exécutées : 795 
Nb de CONS réalisés : Ü 
Taille maximum de la pile : 43 
ЫЫ 
жжжжж С) formes spéciales 
= жжжжж С) formes spéciales 
Nb d’ instructions exécutées : 57 


Nb de CONS réalisés : 0 
Taille maximum de la pile  : 


toplevel 
? 72519 Х 10) 


Nb d’ instructions exécutées : 
Nb de CONS réalisés : 0 
Taille maximum de la pile  : 


to 
? ? K (CAMBDA (X) (ADD1 X)) 20) 


Nb d'instructions exécutées : 123 
Nb de CONS réalisés : 0 
Taille maximum de ta pile : 17 
toplevel 

ak 

= 10 
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Nb d'instructions exécutées : 51 
Nb de CONS réalisés : 
Taille maximum de la pile : 9 


toplevel 
? RBI NIL (PRINT X)) 
= 10 
Nb d'instructions exécutées : 139 
Nb de CONS réalisés : à 
Taille maximum de la pite : 18 
toplevel 
? (LET (X 20) (PRINT X)) 

20 
= 20 


Nb d'instructions exécutées : 158 
Nb de CONS réalisés : 
Taille maximum de ta pile : 20 


toplevel 
? (LET CO 30) (Y 400) (PRINT X ү)) 
30 40 


= 40 
Nb d’instructions exécutées : 221 
Nb de CONS réalisés : 

Taille maximum de la pile  : 22 


toplevel 

? (SETQ L '(LET (X 2) (PRINT >>>) 
= (LET (X 2) (PRINT 20) 

Nb d'instructions exécutées : 76 

Nb de CONS réalisés : 0 
aille maximum de la pile  : 12 


toplevel 
? ais L) 


Nb d'instructions exécutées : 203 
Nb de CONS réalisés : 
Taille maximum de la pile : 20 


EST 


= ((LAMBDA (X) (PRINT X)) 2) 

Nb d'instructions exécutées : 51 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


topievel 

? - 3 '(AB C DEF 6» 

Nb d’instructions exécutées : 102 
Nb de CONS réalisés : Ü 
Taille maximum de la pile t 11 
toplevel 

? Ee WEE ’ (A B C) 

Nb d'instructions exécutées : 98 


Nb de CONS réalisés : 0 
Taille maximum de Le pile : 12 


ST (INTERNAL 7 СОХ) (CONS 'ADDi X))) (CONS (AD 
"ADD: A ) 
=  (ADD1 20) йы 
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Nb d'instructions exécutées : 175 
Nb de CONS réalisés : 2 
Taille maximum de іг pile : 20 


PR 


Nb d'instructions exécutées : 51 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel 

? (CINTERNAL 8 (ОО (CONS "A X))) (CONS (А001 1952) 
= (A (CONS (ADD1 19))) 

Nb d'instructions exécutées : 125 

Nb de CONS réalisés : 1 

Taille maximum de La pile : 20 


EEN 


Nb d’instructions exécutées : 51 
Nb de CONS réalisés : 0 
Taille maximum de ta pile : 9 


toplevel | 
? ұлы 9 (ОХ (CONS 'ADD1 (CADR X)))) ((ADD1 1922) 


Nb d'instructions exécutées : 165 
Nb de CONS réalisés : 
Taille maximum de la pile : 21 


to 
? CHERE (CAR *(00 (CDR X))) (CAR "(AB C D))) 


Nb d’instructions exécutées : 203 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 23 


toplevel 
? (WHERE (CDR 7 '((X) (CAR X))) (CDR ' (A B ODD 


Nb d’instructions exécutées : 190 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 23 


59 RASPE Y *CONS '((ADD1 1) (А001 2) (А001 3))) 
= ((ADD1 1) ADD1 2) 

Nb d'instructions exécutées : 93 
Nb de CONS réalisés :1 
Taille maximum de la pile  : 12 


to 

? кл "LIST '((ADD1 1) (ADD1 2) (ADD1 3))) 

Nb ея exécutées : 159 

Nb Be CONS réalisés : 3 

Taille maximum de la pile : 13 

toplevel 

2 (MAP (LAMBDA (X Y Z) (PRINT X Y 2») ' (AB C) '(D EDD 
(A B (DE) NIL 


(BC) Е NI 
MIL NIL NIL 


Nb d'instructions exécutées : 576 
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—————————M————ÀÀÀÀ 


Nb de CONS réalisés : 11 
Taille maximum de la pile : 29 


toplevel 
2 (MAP (LAMBDA (X . Y) (PRINT X Y)) '(A B CO '(D EF) '(G HI J) (Кә) 
(A B C) COD EF) (G HI J) (K>) 
J) NIL) 
NIL (NIL (J) NIL) 
= NIL 
Nb d'instructions exécutées 


Nb de CONS réalisés : 25 
Taille maximum de la pile  : 


toplevel 
? AE CR (X Y Z D (PRINT X Y Z T)) А '(B , C) ' ФЕ) "(Е G H>) 


A C E G 

A C NIL H 
= NIL 
Nb d'instructions exécutées : 748 
Nb de CONS réalisés : 21 
Taille maximum de la pile  : 33 


toplevel 

? °жжжжж D) Les variable-fonctions 
= жжжжж D) les variable-fonctions 
Nb d' instructions exécutées : 57 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel 
2 (DE VAR (N) CIF N (SETQ VAR N) VAR)) 


Nb d'instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel 
? (VAR 10) 
= 10 


Nb а” instructions exécutées 


Nb de CONS réalisés : 0 
Taille maximum de la pile  : 


toplevel 
? SC (VAR 11) (PRINT (VAR))) 


= 11 

Nb d'instructions exécutées : 476 
Nb de CONS réalisés : 1 
Taille maximum de la pile : 27 
top level 

? (VAR) 

Nb d'instructions exécutées : 137 
Nb de CONS réalisés : 0 
Taille maximum de la pile  : 19 


toplevel 

? (VAR ° (X Y Z)) 

= (X Y Z) 

Nb d'instructions exécutées : 
Nb de CONS réalisés : 0 
Taille maximum de la pile  : 
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toplevel 
? 4. “(А B) (VAR)) 
Nb d'instructions exécutées : e 


Nb de CONS réalisés : 
Taille maximum de la pile : 24 


toplevel 
? P PROGN (PRINT (VAR)) (ESCAPE ECH (LETF (VAR '(1 2)) (PRINT (VAR)) (ECH))) 


(УАВ)? 
(ХҮ 2) 
(1 2) 
= (X Y Z) 
Nb а” instructions exécutées : 778 
Nb de CONS réalisés : 1 


Taille maximum de la pile  : 37 


toplevel 
е ----- 1 - La fonction de 


FIBONACCI 
Ge 1 - La fonction de F 


ONACCI 
97 


IB 
IB 
0 
9 


Nb d' instructions exécutées : 


Nb de CONS réalisés 
Taille maximum de la pile 


topleve 
? КОЕ F Ela (ND S € (ZEROP ND 1) «(EQ N 1) 1) (T (PLUS (FIB (5081 №) € 
FIB EEN N 22222 


Nb d'instructions exécutées : 61 

Nb de CONS réalisés : 0 
Taille maximum de ta pile : 9 
toplevel 

? (FIB 8 

Nb d'instructions exécutées : 11636 
Nb de CONS réalisés : 3 
Taille maximum de La pile : 100 


toplevel 

? ----- 2 - La fonction а” АСКЕВМАММ 
----- 2 - La fonction а” ACKERMANN 

Nb d'instructions exécutées : 

Nb de CONS réatisés : 0 

Taille maximum de la pile : 9 


3o (DE A ACK (X Y) GC (CZEROP A (ADD1 Y)) ((ZEROP Y) (ACK (SUB1 X) 1)) (T 
(AER QE X) (ACK X (6081 Y)))))) 


Nb d’instructions exécutées : 61 

Nb de CONS réalisés : 0 

Taille maximum de la pile : 9 
` toplevel 

? SCH 2 2) 


Nb d’ instructions exécutées ; 4749 
Nb de CONS réalisés : 
Taille maximum de la pile  : 111 


toplevel 

? ----- 3 - Un bien étrange REVERSE 
----- 3 - Un bien étrange REVERSE 

Nb d’ instructions exécutées : 5 

Nb de CONS réalisés : 

Taille maximum de la pile : 9 
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to 
? Dë ЕЗ, (L) (IF «NULL. (CDR L)) 
CAR м. (CDR «БЕУ ¿CDR L))))) 


) 

) 
Nb d'instructions exécutées : 61 
Nb de CONS réatisés : Ü 
Taille maximum de la pile 9 


7 SS (CAR (REV (СОН L))) (REV (CONS ( 


))) 


tople 
? (REV. * CA B C D E)) 

(E D C B A) 
Nb d'instructions exécutées : 24791 
Nb de CONS réalisés : 94 
Taille maximum de la pile : 120 


а. 
----- 4 - Générateur de permutations (co-post-rec) 
__ _ Í 4 - Générateur de permutations (co-post-rec) 
Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile : 9 


toplev 
? (DE YS RMS (N) (F O NIL)) 
PERMS 


Nb d'instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


toplevel 
? Gr F (NIV E) CIF (LT NIV ND KH (ADiüi NIV) (CONS 1 E)) (PRINT (REVERSE E) 
) (G NIV (CAR E) (CDR E)))) 


Nb а’ instructions exécutées : 61 
Nb de CONS réalisés : 0 
Taille maximum de la pile : 9 


toplevel | 
2 (DE G (NIV X E) (IF (EQ X N) (IF E (G (SUBI NIV) (CAR E) (CDR ЕО) 'FIND 


(H A AM (CONS (ADD1 X) E)))) 


Nb d’ instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


to lev 
SÉ H (NIV Е) (IF (MEMQ (CAR E) (CDR E») (G NIV (CAR E) (CDR E)) (F NIV 


Nb d’ instructions exécutées : 
Nb de CONS réalisés : 
Taille maximum de la pile  : 


toplevel 
? no m 1) 


= FINI 

Nb d’ instructions exécutées : 821 
Nb de CONS réalisés : 2 
Taille maximum de la pile : 54 


toplevel 
D un 2) 
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— T... nsn a: 


Nb d'instructions e:scutées : 2926 
Nb de CONS réalisés : 10 
Taille maximum de la pile : 59 


= FINI 

Nb d'instructions exécutées : 12576 
Nb de CONS réalisés : 48 
Taille maximum de la pile : 59 


toplevel 

? 'жжжжж E) Test des erreurs 

= ЖЖЖЖЖ E) Test des erreurs 
Nb d'instructions exécutées : 57 
Nb ds CONS réalisés : 0 
Taille maximum de la pile : 9 


topi NAR 
? FOOBARX25 


жжж EVAL : Variable indéfinie. 
Dernière forme évaluée : : FOOBARX25 


UN : 

3 

(30...) 

1 

NIL 

(SCVAL A1 °ІТ) : 

UNBIND : 

3 

0 

0 

NIL 

(PRSTAT NIL NIL) : 

( € STOP ) D 

05ж 

= NIL 
Nb d'instructions exécutées : 114 
Nb de CONS réalisés : 2 
Taille maximum de La pile  : 17 


topie 
? (UDFE а» 


жжж EVAL : fonction indéfinie : UDFE 
Derniére forme évaluée : (UDFE ' (А)? 


3 
(30...) 


NIL 
(SCVAL A1 ІТ) : 
BIND : 


L 
RSTAT m NIL) : 
COIDE) ) 


5520996 
Tee = 
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= NIL 

Nb d'instructions exécutées : 1 
Nb de CONS réalisés : 3 
Taille maximum de la pile 1 


31 
7 


toplevel 
? (SELF 1) 


жжж Erreur SELF : (1) 
Dernière forme évaluée : (SELF 1) 
UNSIND : 
(30 — 
1 
NIL 
(SCVAL А1 'ID : 
UNBIND : 
3 
0 
NIL 
(PRSTAT NIL NILO : 
( € STOP ) D 
xEOSx 


Nb d'instructions exécutées : 138 
Nb de CONS réalisés : 3 
Taille maximum de La pile  : 17 
toplevel 

? (EXIT 2) 


жжж Erreur EXIT : (2) 
Dernière ER : (EXIT 2) 


zoogc 
+ = 


L 
(PRSTAT NIL NIL) : 
( € STOP ) ) 


Nb d'instructions exécutées : 126 
Nb de CONS réalisés : З 
Taille maximum de la pile : 11 


tople 
? APPLY "UDFA 1) 


жжж — APPLY : fonction indéfinie : UDFA 
Dernière forme évaluée : 
UNBIND : 
3 
( 30...) 
1 
NIL 
(SCVAL А1 "ID : 
UNBIND : 
0 
0 
NIL 
(PRSTAT NIL NIL) : 
( ( STOP ) ) 
05ж 


= NIL 
Nb d'instructions exécutées : 155 
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RD EP PR EPP sss 


Nb de CONS réalisés : 3 
Taille maximum de la pile  : 17 


toplevel 

? (WERE (SUPESCAPE 10) (SUPESCAPE ”0К)) 
Nb d' instructions exécutées : 126 
Nb de CONS réalisés : 0 
Taille maximum de la pile  : 18 


toplevel 
? (STOP) 


Bye 
Nb d'instructions exécutées : 81775 
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